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PREFACE 


If you are an Atari 600 XL owner, or are about to become 
one, it is probably because you have decided that this 
computer offers you more potential for gaming, 
programming etc. in colour, with sound, than other 
machines on the market. 

Because we are aware of the potential of the Atari 600 XL 
we have written a wide choice of programs which make 
use of the computer's facilities. 

If you are a games player, you will find ample 
opportunity to use the colour and graphics whilst testing 
your reactions and finger twisting skills to the full. If you 
are interested in adventure gaming we have included a 
program which is a variant on Dragons and Dungeons. 
We have not, for reasons of space, been able to list a fully 
extended program but, when you buy your disks, you 
will be able to use a wider range of circumstances for 
youradventuring. 

To help users understand the programs we have 
included full 'how to' instructions and, for those who are 
keen to move on to greater things, programming hints 
where we feel they may be of interest. 

A book like this is always produced with the help of many 
people and we would like to thank, in particular, the 
Technical Staff of Atari U.K. and the staff of Burson- 
Marsteller Ltd. whose Barry Milnes was driven to the 
edge by our endless telephone calls. 
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IMPORTANT NOTES 


If you are a newcomer to computing, and are unfamiliar 
with the task of entering program listings, remember that 
it is of paramount importance to follow every detail. 
There are no real short cuts. 

Your computer is very particular about grammar and 
punctuation points and will not run the programs if even 
a small detail is missing. 

Be very fussy about the difference between 0 (zero) and O 
(letter O). The zero is slashed through on all the listings in 
this book but does not appear on the screen with a slash. 
All the programs in this book have been printed directly 
from the Atari 600 XL and are therefore 'bug free'. 

N.B. On this printer all # (hash) signs are shown as £ 
signs so be careful when entering on your Atari. Make 
sure you don't use the £ sign by error. Use the SHIFT key 
and 3. 

If you intend to 'save' some of these programs on tape to 
ensure you don't have to retype them always make sure 
that your cassette has accepted the information before 
you move on. 

You will find that patience is it's own reward in this high 
technology world. 



BAR CHART 


11 



This is a very helpful utility for anyone who wants to 
make comparisons of sales figures, temperatures, 
money fluctuations in the world markets or just work out 
how much they are spending a month on space invader 
games!!! 


Howto use 

This program will allow the user to chart up to 80 items of 
data and will show the data in a variety of three colours to 
make comparison easier for the viewer. 

You will be presented with a 'menu' which will ask you 
how many items you intend to compare. Enter the 
number and the computer will then ask you for the data 
for each 'bar'. 
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The data is entered by simply pressing the number keys. 
You do not have to press other keys. 

The horizontal and vertical scales will be automatically 
drawn by the computer as it analyses the program. 

To restart, once the chart is drawn, press SPACE. 


The Program 


10 REM BAR CHARTS 
20 DIM H(80) 

30 N-0 

40 C1=1:C2=3 


100 REM MAIN 
110 GRAPHICS 
120 POSITION 
TS" 

130 POSITION 

140 POSITION 
TA" 

150 POSITION 
CHART" 

160 POSITION 
OL.OURS" 

170 POSITION 
OGRAM" 


C3-5 
MENU 
1 + 16 
0,2:PRINT £6;" 

0,3:PRINT £6;" 

0,10:PRINT £6; 

0,12:PRINT £63 

0,14:PRINT £63 

0,16:PRI NT £6; 


BAR CHAR 

"1) ENTER DA 
"2) DISPLAY 
"3> CHANGE C 
"4) LEAVE PR 

OR D>ASC("4 " ) 
THEN GRAPHICS 
, 3000 


200 OPEN £1,4,0,"K: " 

210 GET £ 1, D: IF DCASCC'l") 

.THEN 210 

220 CLOSE £1:IF D=ASC<"4"> 

0:G0T0 20000 

230 ON D-4-8 GOSUB 1000,2000 
300 GOTO 100 
1000 REM ENTER DATA 
1005 TRAP 1005 

lolo GRAPHICS 0:PRINT "HOW MANY ITEMS 
1020 INPUT N:IF N<2 OR N>80 THEN 1010 
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1025 POKE 752,1:REM CURSOR OFF 
1030 FOR L=1 TO N 
1035 TRAP 1035 

1040 POS17 ION 0, 10:PRINT £6 5 "ITEM "? L;" 

= POSITION 7,1 

0 

1050 INPUT D 

1060 IF D<0 THEN 1040 

1065 POKE 752,1:REM CURSOR OFF 

1070 H(L)=D:NEXT L 

1099 RETURN 

2000 REM DISPLAY BAR CHART- 
2005 TRAP 40000 

2010 GRAPHICS 1+16:IF N=0 THEM PRINT £6; 
"NO DATA IS PRESENT":GOTO 2490 
2020 GRAPHICS 7+16:SETCOLOR 0.C1,10:SETC 
OL.OR 1 , C2, 10: SETCOLOR 2, C3, 10 
2030 S=INT <159/N) 

2040 M=0 

2050 FOR L=1 TO N 

2060 IF H (L) >M THEN M=H (L.) 

2070 NEXT L 
2080 IJ=95/M 
2100 FOR L=1 TO N 

2110 C=0:L=1:FQR 1=0 TO (S~ 1) *N STE r P S 
2115 C=C+1:IF C=4 THEN C=1 
2117 COLOR C 
2120 FOR J=0 TO S-l 

2130 PLOT J +1,95: DR A WTO J +1, (95-lJ+H (I ) ) 

2140 NEXT J 

2150 L=L+1 

2160 NEXT I 

2490 GOSUB 2500 

2499 RETURN 

2500 REM WAIT FOR SPACE 
2510 OPEN £1,4,0,"K:" 

2520 GET £1,D 

2530 IF D<>32 THEN 2520 
2540 CLOSE £1 
2550 RETURN 

3000 REM ALTER COLOUR SCHEME 
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3003 TRAP 3003 
3005 GRAPHICS 0 

3010 POSITION 0,0: PRINT £6; "COLOUR ONF 1-1 
UE 

3020 INPUT Cl: IF CKO OR Cl >15 THEN 3010 
3030 POSITION 0,10:PRINT £6;"COLOUR TWO 
HUE 

3040 INPUT C2:IF C2<0 OR C2>15 THEN 3030 
3050 POSITION 0,20;PRINT £6;"COLOUR THRF 
E HUE 

3060 INPUT C3:IF C3<0 OR C3>15 THEN 3050 
3099 RETURN 
20000 END 



CLEAR PATH 
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You may recall that the United States space shuttle 
Challenger was often nicknamed The Flying Brick' by it's 
pilots as it fell to Earth at 5,000 miles an hour, without an 
engine. 

We have given you the same problem to solve, except we 
have made it even nastier for you by bringing you into a 
deserted city. 

We have given you one edge however. You have a cargo 
of bombs which you can use to clear a path for your flying 
brick. 


Howto play 

Entering the screen at top left you must 'fly' across the 
city and demolish the skyscrapers by pressing SPACE 
barto release your bombs. 
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You can choose the level of difficulty at the beginning of 
the game, on a scale of 1 to 10. 

You can only drop a second, or third, bomb when the first 
has hit it's target so there is no point in pressing the 
SPACE bar and hoping forthe best. 


Programming Hints 

To change the height of the buildings alter the number 
afterthe *sign in line 1020. Remember ifyou increase the 
height you will reduce the time you have to respond. 


The Program 


10 REM CLEAR PATH 

11 GRAPHICS 0:PR INT "SPEED (1-10) 

12 INPUT SP:IF SP<1 OR SP>10 THEN 11 
15 SC=0 

20 GRAPHICS 3+16 
30 GQSUB 1000 
40 X=0:Y=0 
50 E=0:F=0 
100 A=X +1:B=Y 

1 FOR L= 1 TO 4*SP: NEXT L 
110 IF A=40 THEN A=0:B=B+1 
115 IF B=23 AND A=20 THEN 800 
120 LOCATE A,B,C 
130 IF C=3 THEN 900 
200 COLOR 4:PLOT X,Y 
210 COLOR 1:PLOT A, B 
220 X=A:Y=B 

300 IF PEEK(764)=33 AND F=0 AND Y<>23 TH 
EN F=Y+1:E=X:POKE 764,0:COLOR 2:PLOT E,F 
350 IF F=0 THEN 100 

400 G=F+1:IF G=24 THEN COLOR 4:PLOT E,F: 
F=0:GOTO 100 
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410 COLOR 4:PLOT E,F 

415 LOCATE E,G,D:IF D=3 THEN SC=SC+10 
420 COLOR 2:PLOT E, G 
4 O F—G 
440 GOTO lOO' 

300 REM LANDED 

810 GRAPHICS 1+16:POSITION 0,10 
820 PRINT £65"YOU LANDED THE'PLANE" 

830 POSITION 0,14:PRINT £6;"SCORE : "5 SC 

840 FOR L=1 TO 600:NEXT L 
850 GOTO 20 

800 REM CRASHED INTO A BUILDING 

910 FOR L=0 TO 250 STEP 3 

920 SOUND 0,L,3, 14:NEXT L:SOUND 0,0,O,O 

930 GRAPHICS 1+16 

940 POSITION 0,10 

950 PRINT £65"YOU SCORED :";SC 

960 POSITION 0,17;PRINT £6 5" < RE T UR 

N > " 

97o OPEN £1,4,O,"K:" 

880 GET £ 1, D: IF DO 155 THEN 980 

990 CLOSE £1:RUN 

1000 REM DRAW A RANDOM CITY 

1005 COLOR 3 

1010 FOR X --0 TO 39 

1020 FOR Y=23 TO 23-INT(RND(1)*5+1) STEP 
-1 

1030 PLOT X,Y 
1040 NEXT y’ 

1050 NEXT X 
1099 RETURN 
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MAZE MOVER 



This little monster will soon let you know if your 
reactions and finger controls are what you think they are. 

We have given you a choice of two mazes and you have 
to move the space star from the bottom left position to 
the top right of the screen. 

Touch any part of the walls and you area goner. 


How to play 

Use keys Z, X, /, +, to move up and down, left and right. 

You will be given a choice of mazes at the beginning and 
will have to select 1 or2 and press RETURN. 

At the end of each attempt you will be asked to reselect a 
maze and begin again. 
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If you do complete successfully you will be given a points ‘ 
score. 

By the way we think No. 2 is the tougher of the two. See if 
you agree. 


Programming Hints 

To make full use of the memory of your machine we have 
included a short machine code routine from lines 9500 to 
9570, so be careful howyou enterthis section. 


The Program 


10 REM MAZE MOVER 

20 REM WITH M/CODE ROUTINES 

25 POKE 53248,Os POKE 53249,0 

30 GOSUB 1000 

40 GOSUB 2000 

50 X=52:Y=175:GOSUB 3000 

60 POKE H2, 1 SO 

70 M--0: POKE H1,X 

80 CX=3 

90 GOSUB 5000 

95 SC-5000 

100 K=F'EEK (764) 

102 SC=SC-5 
105 POKE 53278,1 

110 IF K=23 OR K=22 OR K=3S OR K=6 THEN 
M=K 

120 IF M=22 THEN X=X+CX:POKE H1,X 
130 IF M=23 THEN X=X-CX:POKE H1,X 
140 IF M=38 THEN Z=USR(12288) 

150 IF M=6 THEN Z=USR(12301) 

200 IF PEEK(53252)<>0 THEN 400 
21u IF PEEK(53260)< >0 THEN 500 
290 GOTO 100 

400 GRAPHICS 1+16:POSITION 0,10 
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405 PORE H1,0:POKE H2,0 

410 PRINT £65"YOU DIDN’T MAKE IT" 

415 POSITION 0,17 

420 PRINT £6;" <SPACE>" 

430 IF PEEK(764)<>33 THEN 430 
440 RUN 

500 GRAPHICS 1+16:POSITION 3,10 

5u5 POKE H1,0:POKE H2,0 

510 PRINT £6j"excellent score" 

520 POSITION 0,13:PRINT £65" OF "5 

STR'S (SC) 

530 POSITION 0,17 

540 PRINT £65" <SPACE>" 

550 IF PEEK(764)<>33 THEN 550 
560 RUN 

800 REM CHOOSE MAZE 

810 GRAPHICS 1+16:POSITION 0,10 

820 PRINT £65"choose mace number" 

830 POSITION 0,16 

840 PRINT £65" (1 OR 2)" 

850 OPEN £1,4,0, "K: " 

860 GET £1,A:IF A<49 OR A>50 THEN 860 
370 RESTORE 9000:IF A=50 THEN RESTORE 10 
000 


875 CLOSE £1 
880 RETURN 

1000 REM DRAW THE MAZE ON PLAYFIELD 

1005 GOSUB 800:GRAPHICS 5+16 

1010 SETCOLOR 2,8,4:COLOR 3 

1020 FOR Y—0 TO 40 STEP 8 

1030 FOR X=0 TO 64 STEP 8 

3040 READ D:IF D=1 THEN PLOT X,Y:DRAWTO 

X +3, Y 


1050 NEXT X:NEXT Y 

1100 FOR Y=0 TO 32 STEP 8 

1110 FOR X=0 TO 72 STEP S 

1120 READ D:IF D=1 THEN PLOT X,Y:DRAWTO 

X , Y+8 


1130 NEXT X:NEXT Y 
1199 RETURN 

2000 REM INITIALISE PLAYER GRAPHICS 

w 



2010 PMBASE=40:POKE 54279,PMBA3E 

2020 Cl=704:HI=53248 

2030 POKE 559,62:POKE 53277,3 

2040 P1=PMBASE*256+1024 

2045 P2=P1+256:H2=53249:02=705 

2050 POKE Cl,88:POKE H1,0 

2055 POKE C2,47:POKE H2,0 

2060 FOR 1=0 TO 255 

2070 POKE P1 +1,0:POKE P2+1,O:NEXT I 
2080 POKE F'2+42, 129: POKE P2+49, 129 
2082 POKE P2+43,66:POKE P2+4S,66 
2084 POKE P2+44,36:POKE P2+47,36 
2086 POKE P2+45,24:POKE P2+46,24 
2099 RETURN 
3000 Q=Y+P1 

3010 POKE 0,24:POKE 8+1,24:POKE Q+2,24 
3020 POKE Q+3,255:POKE Q+4,255:POKE 0+ 
24 

3030 POKE Q+6,24:POKE Q+7,24 
3040 RETURN 

5000 REM READ MACHINE CODE INTO RAM 
5010 RESTORE 9500 


5020 

FOR 

L=12288 TO 12313 

5030 

READ 

D:POKE L„D 

5040 

NEXT 

L:RETURN 

Q :~i f i n 

DATA 

1,1, 1,1, 1,1,1, 1,1 

9 0 1 0 

DATA 

0,1,0,0,0,0,0,0,1 

9020 

DATA 

1,0, 0, 1,0, 1,0, 1,0 

9030 

DATA 

0, 1,1,0, 0,0,0,0, 1 

9040 

DATA 

1,0,0,1,1,0,0,0,0 

9050 

DATA 

1,1,1,1,1,1,1,1,1 

9100 

DATA 

1,0, '0,1,0, 0,0,1,0,1 

9 1 .10 

DATA 

1,0, 1, 1,0, 1 , 1 , 1,0, 1 

9120 

DATA 

1,0, 1,0, 1,0,0, 1,0, 1 

9 130 

DATA 

1,0,1,0,0,1,1,1,0,1 

9140 

DATA 

1,0, 1,0,0,0,1,0, 0, 1 

9500 

DATA 

162,252,189,0,44 

9510 

DATA 

157,3,44,202,208,247 

9520 

DATA 

104,96 

9550 

DATA 

162,0,139,3,44 

9560 

DATA 

157,0,44,232,203,247 
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9570 

DATA 

104 

•» 

96 
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PONTOON 



It's gamblers corner again as you pit your wits, and 
money, against the Atari croupier at the old classic game. 
By the way you can't cheat when you show your hand as 
your computer already knows whatyou are holding. 

The object of the game, in case you have never strayed 
into a card school, is to achieve a score of 21 in as few 
cards as possible. If you over buy, orovertwist, and score 
more than 21 you are 'bust' and you lose your stake. Aces 
count a 1 or 11 except when you receive two aces in a 
deal. In this case your hand will stand as 12. 


How to play 

The computer will deal your first two cards and ask if you 
would like to T (Twist, take another card without 
increasing your stake); S (Stay on your existing, or 
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eventual hand); B (Buy another card); F (Fold if you think 
your hand is useless, but remember you will lose your 
stake money, and give you another hand). 

If you buy, or twist, to a five card trick (five cards totalling 
21 or less) you will beat the computer, unlesss it had a 
pontoon (21). 

Press the key corresponding to your choice at each stage. 
There is no need to press RETURN at each stage. 

When buying a card, type in the amount you wish to bet 
and press RETURN. 

Remember, if you lose your shirt on this game you won't 
have to part with it. 


The Program 


10 REM PONTOON 
20 GRAPHICS 0 
30 DIM C<52) 

40 DIM P(10),M(2) 

50 GOSUB 1000 
60 M=100 
70 DIM K*(40) 

SO OPEN £1,4,0,"K:" 

90 DIM A$ (1 ) 

100 REM HAND LOOP 

110 GRAPHICS 0 

120 M=M~2:IF M<0 THEN 800 

122 PRINT "YOU HAVE ";M;" POUNDS LEFT" 

125 BET=2 

130 PRINT "YOUR CARDS 
135 GOSUB 1500 

140 GOSUB 2000:PRINT " THE ";K$ 

150 P(1)=V:GOSUB 2000:GOSUB 1500 
160 PRINT " THE " ; K$: P(2)=V:GOSUB 1500 
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165 N-2 

166 IF F<1>=1 THEM P<l)=il 

168 IF P (2) = 1 AND P (1 ) < > 1 1 THEN p (2) = 1 1 
170 IF P(1)+P(2)=21 THEN PRI NT :PRINT " 
PONTOON !! 

180 SP=P(1)+P(2) 

200 REM PLAYER CHOICES 

210 PRINT "TWIST/STICK/BUY/FOLD ?" 

220 GET £1,A:AT“CHET(A) 

230 IF AT< >"T" AND A$<>"S" AND A$<>"B" A 
ND AT< >"F" THEN 220 

240 IF AT-"F" THEN PRINT "O.K. YOU LOSE 
YOUR STAKE":GOSUB 1500s GOTO 110 
250 IF AT—"S" THEN 400 

260 IF AT="B" THEN GOSUB 1700:PRINT "O.K 
GOOD LUCK" 

270 N=N+1:REM NEXT CARD 
280 GOSUB 1500:GOSUB 2000 
290 PRINT "THE ";KT 
300 P(N)=V:SP=0 

310 FOR L= .1. TO N: SP-SP+P (L.) : NEXT L 

320 IF SP>21 THEN PRINT "BUST."-GOT 

0 400 

330 IF N>4 THEN PRINT "FIVE CARD TRICK.. 

II 

340 IF SP-21 THEN PRINT "TWENTY ONE. 

II 

350 GOTO 210 

400 REM NOW COMPUTER PLAYS 
410 PRINT :PRINT "MY CARDS :" 

415 GOSUB 1500 

420 MT-O:GOSUB 2000:PRINT " THE KT 
430 M ( 1) —V: GOSUEf 1500: GOSUB 2000 
440 PRI NT " THE ";KT s GOSUB 1500:M(2)=V 
450 IF M(1)=1 THEN M(1)=11 
460 IF M(2)-1 AND MCI)<>11 THEN M(2)-11 
470 IF M ( 1 ) +M (2) ~ 2 . 1 THEN 600 
480 IF P(1)+P(2)=21 AND N=2 THEN 700 
490 MT=M(1)+M(2) 

500 IF MT<SP AND SP<=21 THEN 510 
503 IF N<5 THEN PRINT "I WILL STICK " 

SUB 1500:GOTO 600 


: GO 
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510 PRINT "I WILL TWIST...." 

520 GOSUB 2000:: GO SUB 1500 
530 PRINT " THE " ; K* 

540 MT=MT+V:GOSUB 1500 

545 IF NT>21 THEN PRINT "I AM BURT... " 

GOTO 700 

550 GOTO 500 

600 REM PLAYER LOSES 

610 PRINT SPRINT "YOLJ LOSE THAT HAND" 
620 GOSUB 1500;GOSUB 1500 

699 GOTO 100 

700 REM COMPUTER LOSES 

710 PRINT SPRINT "YOU WIN THAT HAND" 

720 GOSUB 1500;GOSUB 1500 
730 M-M+BET 
799 GOTO 100 

000 REM HERE WHEN PLAYER IS BROKE 
B10 p RIN T : P RIN T " Y 0 U A R E B R 0 K E'' 

020 GOSUB 1500 

030 PRINT "COME BACK ON YOUR I UCKY DAY" 
040 GOSUB 1500 
050 END 

1000 REM RANDOMOMIZE PACK 

1005 PRINT "+4+++ NEW PACK +++++" 

1010 FOR L~1 TO 52 
1020 C(L)=L:NEXT L. 

1030 REM SHUFFLE 
1040 FOR L=1 TO 100 
1050 IF V> 10 THEM V=10 
1055 A=INT <RND(1)*52+1) 

1 060 El™ I NT (RND (1 ) *52 +1) 

1070 T=C(A):C(A)=C(B) 

1080 C(B)=T 
1090 NEXT L. 

1095 Q=1 
1099 RETURN 

1500 REM A SHORT DELAY 

15.10 FOR WW=1 TO 100; NEXT WW: RETURN 

1700 REM INCREASE BET 

1710 PRINT "BY HOW MUCH 

1720 INPUT BBsIF M-BB<0 THEN PRINT "YOU 
HAVEN’T GOT THAT MUCH MONEY": GOTO 17.10 
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1730 BET-BE T+B B: M=M B B 
179? RETURN 

2000 REM CARD I'M K 

2001 REM NAME IN Kf> 

2010 K=C(D):Q=Q+1:IF 0=53 THEN GOSUB lOO 
0: Q=1 

2020 S=INT (( K-1 )/ 13 ): V=K-13*3: S=S+ i 
2030 ON V GOSUB 2100,2110,2120,2130,2140 
,2150,2160,2170,2190,2190,2200,221O,2220 
2040 ON S GOSUB 2300,2310,2320,2330' 

2050 IF V>10 THEN V=10 

2099 RETURN 

2100 K*="ACE ".-RETURN 

2110 K*="TWO RETURN 
2120 K*="THREE "sRETURN 
2130 K$="FOUR RETURN 

2140 K$="FIVE RETURN 

2150 K$ = "SIX ": RETURN 
2160 K*="SEVEN ":RETURN 
2170 K*="EIGHT RETURN 

2180 K$="NINE ":RETURN 
2190 K$="TEN ":RETURN 
2200 l<$— " J ACK ": RETURN 
2210 K*="QUEEN "s RETURN 
2220 K*="KING ":RETURN 

2300 ET. (LEN (K$) +1) = " OF CLUBS " : RETURN 
2310 Kt( LEN(K*)+1)-" OF DIAMONDS ":RETUR 
N 

2320 K*(LEN(K«)+1)=" OF HEARTS RETURN 
2330 K*(LEN<K*)+l)=" OF SPADES RETURN 
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WIZARDS and WARLOCKS 



If you have heard of Dragons and Dungeons and the like 
then you will have an idea what you are about to enter, 
but if you are new to this strange business then we had 
bettergive you a couple of clues. 

As a good Wizard (Warlock seems to be the feminine of 
the species and we would be the last to offend any female 
Wizard) you are to be found on the sixth level of a 
infinitely deep maze. All you have to do isto escape to the 
surface. Easy, huh? Well, we have put several objects in 
your way but you should overcome all of these with your 
'character attributes!' 


Howto play 

To escape you must move through the six floors above 
you, but you can descend if you wish to increase your 
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score, before you reach the surface. You will be given a 
choice of decisions to make, based on your 'attributes' of 
strength, health and magic. 

To make any move simply press the keys without using 
Return key. After each move the screen will scroll 
upwards so you will have a brief memory of your 
previous move. 

We shouldn't tell you but we think that running away 
from the monsters is by far the smartest move. They tend 
to fight dirty and can do you an awful amount of damage. 

To end, if you are tired and can't escape, press BREAK. 


Programming Hints 

You can change your skills by altering the values of your 
'character attributes' in Line 80. This will allow the more 
callow amongst you to assume the skills of a superman 
and live longer. 

If you are really the coward and miserable poltroon we 
always thought you were then you will change Line 60 
after LV = to 1. This means that you will begin on level 1 
and should be able to escape without any trouble. 

Cowardly varlet, stay on level 6 and fight your way out. 


The Program 


10 REM WIZARDS AMD WARLOCKS 
20 DIM N* (SO) , MG ( 1 0) ST ( .1. 0) „ FT ( 1 0) , A 4; (70 
) 

25 DIM T*(10),E*<6) 

30 GOSUB 1000 
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40 GRAPH ICES 0 
50 OPEN £1,4,0,"K:" 

00 L..V==6: REM STUCK ON SIXTH LFVFI 
70 SC=0 

80 ST = 1 0: HL“ST+5:: MG ^2 

99 REM NEW LOCATION 

100 E$ (1,6)=" 

101 SC=SC+1 

102 IF LV~0 THEN 900 
105 M=0 

107 MG“MG+1 

109 IF HL<ST+5 THEN HL-HL.+ 1 

110 IF RND ( 1) >0. 7 THEN ET> (1 ) = "N 
120 IF RND (1 ) >0. 7 THEE!N E$(2)="E 
130 IF RND ( 1) >0. 7 THEN ET (3) = "s ■> 

140 IF RND (1 ) >0. 7 THEN E$(4)=="W 
150 IF RND(1)>0.95 THEN E$(5)="U " 

160 IF RND (1) >0. 95 THEN ET. < 6) = " D " 

165 IF E$=" " THEN 110 

170 PRINT "YOU ARE IN A MEW ROOM" 

ISO PRINT :PRINT "THERE ARE EXITS 
190 PRINT " ";E$ 

200 PRINT 

210 IF RND(1)<0„7 THEN 300 
220 M= 1 : A — I NT (RND ( 1 ) * 10+ ;|. ) : P= I NT ' RND M ) * 
10+1 ) 

230 PRINT " THERE IS A ",:X=A:GOSUB 1500 
240 X=B:GOSUE< 1600: PR I NT " HERE" 

300 PRINT "WHAT DO YOU WANT TO DO" 

310 PRINT :PRINT "FIGHT / PARRY / MOVE / 
RUN" ' " 

320 GET £1,T:T$=CHR$(T) 

330 IF T$<>"F" AND T$<>"P" AND T$< >"M" A 

ND T4<>"R" THEN PRINT. PARDON .. 

PRINT :GOTO 300 

340 IF T$=.-:"M" AND M=i THEN PRINT "YOU CA 
N"T WALK AWAY FROM HERE !":GOTO 300 
350 IF Tt.-~"F" AND M=0 THEN PRINT " ! ' 1 F 

IGHT WHAT !!!";GOTO 300 

360 IF T$- : "R" AND M=0 THEN PRINT "... GO 
OD EXERCISE... I SUPPOSE.GOTO 100 
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370 IF T$="R" AND RND(1)>0.6 THEN PRINT 

"-YOU DIDN’T GET AWAY. ..":GOTO 500 

380 IF T$="R" THEN 100 

385 IF T$="F" THEN PRINT "....BE ABSOLUTE 
L-Y CLEAR.. . PRINT "....THIS IS YOUR IDE 
A":GOTO 500 

390 IF T*="P" AND M=o THEN PRINT "...GOO 

D PRACTISE. . . " : PR I NT ".MOW . . . ” : GO 

TO 300 

400 IF T*="P" THEN PRINT "...HANG ON SUN 
SHINE":GOTO 500 

410 PRINT :PRINT "WHICH DIRECTION ";E$ 
420 PRINT "? 

430 GET £1,T:T$=CHR*(T)s PRINT TT:F=0:FOR 
L=1 TO 6 

440 IF E*<L,L)=T$ THEN F=1 
450 NEXT L: IF F=0 THEN PRINT "....YOU CA 
N’T GO THAT WAY": GOTO 4.10 
460 IF T$="U" THEN L.V=LV1: PRINT "YOU’LL 
GET OUT OF HERE YET..." 

470 IF T*="D" THEN LV=LV+1:PRINT "DEEPER 
AND DEEPER DELVING IS":PRINT "BAD FOR Y 
OUR HEALTH" 

480 GOTO 100 

500 REM FIGHT MONSTER 

505 S~INT(RND(1)*ST(B)+1) :M=INT <RND(1 )*M 
G(B)+1) 

510 PRINT :PRINT "CAST SPELL / FIGHT / R 
UN" 

520 GET £1,T:T$=CHR$(T):IF T$<>"C" AND T 
$<>"F" AND T$< >"R" THEN PRINT " EH *? 

??":GOTO 510 

530 IF T$="R" AND RND(1)>0.15 THEN PRINT 
"YOU CAN’T GET AWAY":GOTO 600 
540 IF T$="R" THEN 100 

550 IF T$="C" AND MG<=0 THEN PRINT "YOU 
HAVE USED UP ALL YOUR MAGIC":GOTO 600 
560 IF T$--"F" AND RND (.1) >0.7 THEN PRINT 
"YOU MISSED":GOTO 600 

570 IF T*="F" THEN S=S-1NT(RND(1)*ST+1) : 
PRINT "A HIT-HOW VIOLENT":GOTO 600 
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580 T= I NT (RND ( 1) *MG+1 ) : S»-S.T: MG “MG.7 s PR I 

MT " . . ROW. . ZAP - . . WHAT A PRETTY FLASH'': GO 
TO 600 

600 REM MONSTER ATTACK 

61 o IF S<-0 THEN PRINT "..YOU KILLED THE: 

" ! : X=A:: GOSIJB 1500: X=B : GOSIJE-i 1600 - PR I |\|T 
:GOTO 650 

620 T=I NT(RND(1)* 100);IF T>F1(B) AND M<> 
0 THEN PRINT "..WHAM..A SPELL.GOTO 64 
0 

630 PRINT "THE FIEND TRIES TO HIT YOU":I 
F RND(1>>0.7 THEN PRINT "BUT MISSFS "■ 
GOTO 648 

633 PRINT "AND SUCCEEDS" 

636 l-IL=HL.I NT (RND (1 ) *S+1 ) : PRINT "OH DEAR 

! MORE DAMAGE":GOTO 645 

640 T=INT (RND (1) *M+1 ) : M=M--T: HL=HL-T 

645 IF HL< =0 THEM 800 

648 PRINT "STILL ALIVE, BETTER THAN I TH 
OUGHT" 

649 GOTO 500 

650 REM CREATURE IS DEAD 

660 PRINT "WELL DONE BRAVE KNIGHT..." 

670 T- INT(RND(1)*(MG(B)*2+3T(B)))*5 
680 PRINT "HAVE ";T;" PIECES OF GOLD" 

690 SC=SC+T:M=0 

695 GOTO 180 

800 REM PLAYER IS DEAD 

810 PRINT :PRINT 

820 PRINT "THE WHOLE COURT WILL MOURN" 
830 PRINT "THE PASSING OF A BRAVE WARRIO 
R" 

840 PRINT "KNOWN FOR HIS VALOUR AND STPO 
NG WILL" 

850 PRINT " (I.E. YOU'RE DEAD MATF) 

II 

860 FOR L.=l TO 600: NEXT L 

870 PRINT "BY THE WAY YOU SCORFD "5 SC 

890 END 

900 REM PLAYER GOT OUT 

905 GRAPHICS 0:P0KE 752,1:PRINT 
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907 POSITION 0,12: PRINT £6?" YOU ES 

CAPED" 

910 FOR l_- 1 TO 255: POKE 710,L:P0KF 7 3 2, ( 
255-L) 

920 NEXT L. 

930 PRINT "YOUR SCORE IS 
940 PRINT " ";SC 

948 PRINT "PLUS A SMALL. PSYCHOLOGICAL AD 
VANTAGE" 

949 FOR L-l TO 500:NEXT L:PRINT :PRINT " 
. . . YOU' F,'E ALIVE" 

950 GET £ 1 ,A 
960 END 

1000 REM READ IN CHARACTERISTICS 

1001 REM OF MONSTERS 
1010 RESTORE :NT="" 

1020 FOR L=1 TO 10 

1030 READ TT: NT (L.EN (NT) +1 ) =T$ 

1040 NEXT L 
1050 AT="" 

1060 FOR L-1 TO 10 

1070 READ TT:AT(LEN(AT)+1>=TT 

1080 NEXT L 

1100 FOR L-=l TO 10 

1110 READ A,B,C 

1 120 MG <L) ==A: ST (L) =B: FI (l._) ~C 

1130 NEXT L 

1199 RETURN 

1500 REM PRINT THE XTH ADJECTIVE 

1510 Q=(X-1)*6+1 

1520 PRINT AT(Q,Q+5);" "; 

1530 RETURN 

1600 REM PRINT THE XTH NAME 

1610 Q=(X-1)*7+1 

1620 PRINT NT(Q,Q+6);" "; 

1630 RETURN 

9000 DATA ELF ,DWARF ,TROLL .WIZARD 
,TOAD ,WARLOCK 

9010 DATA ZOMBIE .BEETLE ,ORC .CHIMER 
A 

9100 DATA CRUEL .GREEDY,FOUL ,WICKED,SL 
IMY ,SMELLY,CLEVER 
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9110 DATA LARGE ,SLY ,HONEST 

9200 DATA 5,5,10 

9210 DATA 1,8,70 

9220 DATA 0,15,100 

9230 DATA 20,7,5 

9240 DATA 0,20,100 

9250 DATA 0,3,100 

9260 DATA 3,10,65 

9270 DATA 0,5,100 

9280 DATA 2,8,50 

9290 DATA 10,40,50 



WORD SQUARE 
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This program is designed to test the wits of members of 
your circle who think they are keen of eye and sharp of 
brain. 

The screen will generate a square of alphabet which will 
contain hidden words. The words can be written 
horizontally, vertically, diagonally and even backwards. 


Howto play 

When you have identified a word type in the answer and 
press RETURN. You should note that you may identify 
small words such as 'of' and 'for' which appear simply 
because of the structure of the screen, but are not 
actually acceptable to the computer. 
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Programming Hints 

To make the program challenging you should have 
someone else enter the data words which are in the end 
of the program. Otherwise you will, of course, know the 
words you are seeking. 


The Program 


10 REM WORD SQUARE 

20 DIM SS< 225),NS(10) ,QS(1) 

25 DIM P(10),X(10),Y(10) 

27 DIM AS(10) 

2Q DIM W(10) 

30 GOSUB 1000 
40 GOSUB 2000 

50 FOR L--1 TO 10: W (L) =0: NEXT L 
60 SC=0 
SO GOTO 100 

90 PRINT "BE SENSIBLE":FOR L=1 TO 100:NE 
XT L 

100 PRINT "YOUR GUESS "; 

110 INPUT AS 

115 IF LEN(AS)=0 OR LENKAS)>10 THEN 90 
120 GOSUB 4000 

130 IF F=0 THEN PRINT "NOT THERE":GOTO 4 
90 

140 SC=SC+1 

150 REM HIGHLIGHT DISCOVERED WORD 
155 IF W(F)=1 THEN PRINT "YOU’VE HAD THA 
T":GOTO 490 
157 W<F)=1 

160 B== I NT (P (F) / 1 5) : A=P (F) -15*B 
170 FOR L=1 TO 0 
ISO LOCATE A,B,D 

190 POSITION A,B:PRINT £6;CHRS(D+32) 

200 A=A+X(F):B=B+Y(F) 

210 NEXT L 

215 IF SC=10 THEN 300 
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220 PRINT "WELL DONE "5 SC;" CORRECT" 

230 GOTO 490 

490 FOR L=1 TO 50:NEXT L 
500 GOTO 100 

BOO REM HERE WHEN TEN FOUND 

B10 PRINT :PR INT :PRINT 

820 PRINT "YOU FOUND THEM ALL" 

830 PRINT :PRINT "WELL DONE" 

840 FOR L=1 TO 500:NEXT L 
850 END 

1000 REM READ IN DATA AND STORE IN SOUAR 
E 

1003 GRAPHICS 1 + 16 

1006 POSITION 0,10:PRINT £6;" ONE MOM 
ENT" 

1010 3$="":FOR L=1 TO 15 

1020 3$(LEN(S$)+1)=" ":NEX 

T L 

1025 RESTORE 9000 
1030 FOR 1=1 TO 10 
1040 READ N$:N=LEN<N$) 

1050 ON INT(END(1)*3+0.5) GOSUB 3000,301 
0,3020, 3030,3040,3050,3060,3070 
1060 A= INT(RND(1)* 15) :B=INT(RND(1)* 15) 

1070 C=A+X(I)*N:D = B+Y(I) *N 

1080 IF C<0 OR DC0 OR 014 OR D> 14 THEN 

1050 

1090 L=—1 
1095 L=L+1 

1 100 0=1+(B+Y(I)*L)*15+A+X(I)*L:Q*=S*(0, 
Q) 

1110 IF Q*=" " THEN 1130 
1120 IF Q$ON$(L+l) THEN 1050 
1130 IF LON-1 THEN 1095 
1140 FOR L-0 TO N-l 
1150 0=1 + (B+Y(I)*L> *15+A+X(I) *L 
1160 S$(0,0)=N*(L+l) 

1170 NEXT L 
1175 P(I)=A+B*15 
1180 NEXT I 
1190 FOR L=1 TO 225 
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1200 IF S*<L,L>=" " THEN S*(L,L)=CHR$(65 
+ INT(RND(1> *26)) 

1210 NEXT L 
1499 RETURN 

2000 REM DISPLAY SQUARE 

2010 GRAPHICS 1 

2020 FOR L=0 TO 14 

2030 POSITION 0,L 

2040 PRINT £6;S$(L*15+1,L*15+15> 

2050 NEXT L 
2199 RETURN 

3000 X(I)=-1:Y(I)=-1:RETURN 

3010 X(I)=-1:Y(I)=0:RETURN 

3020 X(I)=-1:Y(I)=1:RETURN 

3030 X(I)=1:Y(I)=-1:RETURN 

3040 X(I)=1:Y(I> =0:RETURN 

3050 X(I)=1:Y(I)=1:RETURN 

3060 X(I> =0:Y(I> =1:RETURN 

3070 X(I> =0:Y(I)=-1:RETURN 

4000 REM CHECK IF RESPONSE IS VALID 

4010 RESTORE 9000 

4020 F=0 

4030 FOR L=1 TO 10 
4040 READ N$ 

4050 IF N$=A$ THEN F=L:0=LEN(N*> 

4060 NEXT L 
4099 RETURN 

8999 REM WORD LISTS 

9000 DATA ATARI,VIDEO,COLOUR 
9010 DATA SOUND,GRAPHICS,SPACE 
9020 DATA FUTURE,GAMES,FUN 
9030 DATA COMPUTER 
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At last, you say, in a computer book there must be an 
acronym somewhere because the whole business is full 
of Poke, Peek, Byte and Ram. Well, our title stands for 
Semi Intelligent Machine Psychologist with Extendable 
Response. 

What, you ask, has that got to do with the time of day? 

We will explain. 

This is your chance to use your computer to make fools 
out of all your friends, party guests, loved? ones etc. Your 
SIMPERING Atari will ask questions and respond to your 
answers with 'semi-intelligent' comments. Can you take 
the risk? 
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Howto play 

Your computer will ask you to enter statements about 
yourself. 

Type in your comments, making them as long as 
possible, and your 600XL will make it's considered 
comment on your character. 

It's a little like having a 'shrink' at home. 


Programming Hints 

We have given you a selection of appropriate data 
(words) that might make fun for your family but you can 
change, add or delete these lines and cause fun and 
games at your next party. 

If you have added a memory expansion unit to your 
computer you can add to the data statements from lines 
5000 onwards and give the computer a much wider 
choice of response. 


The Program 

10 REM SIMPER 

20 DIM QH(100),AH(50) 

21 GOSUB 3500:OS-U 
30 DIM OH(20),TH(20) 

40 QH="HELLO, MY NAME IS SIMPER, I'M HER 
E TO DISCUSS YOUR PROBLEMS 
TELL ME ABOUT YOURSLEF" 

50 BS=0 
60 0S=0 

100 PRINT QHSPRINT 
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110 INPUT A*:IF AT-"" THEN 102 
112 IF AT-"YES" THEM PRINT "AT LAST SOME 
DETERMINATION":QT-"DO YOU OFTEN BEHAVE 
QUITE SO FIRMLY":GOTO 100 
115 IF AT-"PARDON" OR AT(1,2)-"EH" OR AT 
-“"WHAT" THEM 100 

117 IF AT-"NO" then PRINT "SHORT AMD TO 
THE POINT":IF 03=0 THEN PRINT "RTVF ME S 
OMETHING TO GO ON":GOTO 100 
120 GOSUB 1100:GOSUB 1200 
130 OT-AT:AT-" ":AT(2)-0T 
140 IF V-0 AND I.J< >0 THEN GOSUB 3000: GOTO 
100 

160 IF V=0 AND 0300 THEN U-OS:OS-O:G09U 
B 3000:GOTO 100 

200 IF V=0 THEN GOSUB 4000:GOTO 100 
210 GOSUB 3500:05=0 
220 GOTO 100 

1000 REM SEARCH FOR TT IN AT 
1010 F-0 

1013 IF AT--TT THEM F-l:RETURN 

1016 IF LEN(AT)<-LEN(TT) THEN RETURN 

1020 FOR L.=2 TO LEN (AT).LEN (TT) +1 

1025 IF AT(L-1,L-1)< >" " THEN 1040 

1030 IF AT (L., L+LEN (TT) .1 ) -TT THEM F= 1 

1040 NEXT L:RETURN 

1100 REM RETURN VERB NUMBER IN V 

1110 V-0:RESTORE 5000 

1120 READ N:FOE Q-l TO N 

1130 READ TT:GOSUB 1000:IF F-l THEN V-Q 

1140 NEXT Q:RETURN 

1200 REM RETURN NOUN NUMBER IN U 

1210 U-0:RESTORE 6000 

1220 READ N:FOR Q-l TO N 

1230 READ TT:GOSUB 1000:IF F-l THEN U-Q 

1240 NEXT Q:RETURN 

3000 REM FIND REPLY SEMTANCE 

3010 RESTORE 20000 

3020 FOR L-0 TO (U--1) *3+1 NT (RND (1 ) *3) 
3030 READ QT:NEXT L 
3040 RETURN 
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3500 REM CHOOSE SENTAMCE 
3510 RESTORE 10000 

3520 FOR L~0 TO (V.1 ) *-3+1 NT (RND ( 1) *3) 

3530 READ QT:NEXT L 
3540 RETURN 

4000 REM CONJURE A RESPONSE 

4010 BS=BS+1:IF BS=7 THEN PRINT "SORRY.. 

. YOUR TIME IS UP":END 

4020 RESTORE 30000 

4030 FOR L=1 TO BS 

4040 READ Q$:NEXT L 

4050 RETURN 

5000 DATA 8 

5010 DATA LOVE,HATE,OWN,WANT,FLY,WALK,TA 

KE,GIVE 

6000 DATA 9 

6010 DATA CAR,COMPUTER,HOLIDAY,MONEY,TFI 
E,MUSIC,VIDEO,FOOD 
6020 DATA FISH 

9999 REM REPLY DATA 

10000 DATA HOW DO YOU KNOW THAT IT'S LOV 
E 

10001 DATA HOW LONG HAVE YOU FElT lIKE T 
HIS 

10002 DATA WHEN DID THIS FEELING START 

10010 DATA ARE YOU SURE THAT YOU’RE NOT 
BEING OVER HASTY,WELL IF YOU’RE SURE 

ABOUT IT THEN IT’SGOOD FOR YOU 

10011 DATA IS THIS FEELING VERY INTENSE. 

DO YOU REALLY MEAN IT 

10020 DATA THAT’S VERY POSESSIVE OF YOU, 
WOULDN’T ’CARE FOR’ BE A BETTER WAY OFPLJ 
TTING IT 

10021 DATA BUT DO YOU OWN YOUR SOUL. OR 
HAVE YOU TRADED IT WITH CONSUMER SOCIETY 

10030 DATA PLEASE CLARIFY YOURSELF. LOVE 
OR WANT THE FIRST IS MORE POLITE 

10031 DATA THAT’S VERY IMPULSIVE 

10032 DATA I WANT... . I WANT... BELLOC HAS 
A SUPRISEFOR YOU 
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10040 DATA DO YOU SOMETIMES WISH THAT YO 
u COULD FLY,AEROPLANES ARE SO EXPENSIVE 

AREN'T THEY 

10041 DATA FLY ME TO THE MOON...DO YOU T 
HINK THATYOU WOULD ENJOY THAT 

10050 DATA NOTHING BEATS SHANK'S PONY.WA 
LKING IS VERY GOOD EXERCISE 

10051 DATA IT MIGHT BE QUICKER BY CAR 

10060 DATA PERHAPS IF YOU SAID PLEASE I 
RST IT MIGHT HELP.YOU'RE SHOWING THF P 
OSESSIVE TRAIT AGAIN 

10061 DATA HOW WOULD YOU TAKE THAT 

10070 DATA GIVING IS GOOD FOR THF CHARAC 
TER. I HOPE YOU DO A LOT OF IT- 

10071 DATA CHRISTMAS IS A TIME FOR RTVIN 
G 

10072 DATA DO YOU RECIEVE MORE THAN YOU 
GIVE. BE HONEST 

20000 DATA DO YOU LIKE FAST CARS,ARE YOU 
GOOD MECHANICALLY,DO YOU LIKE MOTORWAYS 
. THEY'RE TOO FAST FOR ME 

20010 DATA YOU OBVIOUSLY LIKE COMPUTERS. 

I CAN TELL THAT YOU ARE A NATURAL AT 

THE KEYBOARD. 

20011 DATA DO COMPUTERS WORRY IN ANY WAY 
,ISN'T IT A BIT UNNERVING TALKING TO A C 
OMPUTER LIKE THIS 

20020 DATA WOULD YOU PLEASE TAKE ME WITH 
YOU ON YOUR HOLIDAY,THAT'S A GREAT WAY 
TO GET AWAY FROM I TALL 

20021 DATA DO YOU LIKE TO GO ABROAD. OR 
PERHAPS YOU PREFER TO STAY AT HOME. 

20030 DATA MONEY IS EVERYONE'S FAVOURITE 
PROBLEM.TALKING OF MONEY I HAVE THESE R 

ATHER LARGE FEES. 

20031 DATA HOW DO YOU EARN YOUR MONEY. A 
RE YOU BY ANY CHANCE A FORTUNE TELLER. 

20032 DATA WHAT IT MUST BE TO BE A MILL I 
ONAIRE ALL THAT CAVIAR. IT'S ENOUGH TO 

MAKE ANYONE ILL 
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20040 DATA I’M WORRIED ABOUT THE PROFUSI 
ON OF TEL.E--THI5 AMD TELE-THAT DEVICES 

20041 DATA WHERE DO YOU WATCH TELEVISION 
MOST OFTEN 

20042 DATA ARE YOU ADDICTED TO TELEVTSIO 
N LIKE SOME PEOPLE I KNOW. 

20050 DATA WHAT TYPE OF MUSIC DO YOU LIK 
E BEST,I USED TO ADORE SIMON AND GARFUNK 
EL. WHAT DO YOU THINK OF THEM 

20051 DATA SO MUCH MODERN MUSIC IS TOO L. 

OUD. I GET LOTS OF CASES CONNECTED WIT 
H DISCO’S 

20060 DATA DO YOU USE A VIDEO RECORDER A 
T HOME,HOW LONG HAVE YOU BEEN USING A VI 
DEO 

20061 DATA IF YOU VIDEO TOO MUCH THEM YO 
U WON’T HAVE ANY TIME TO NOTICF THE REA 
L WORLD 

20070 DATA SO YOU EAT TOO MUCH DO YOU.FO 
OD IS ALL VERY WELL BUT YOU MUSN’T BE 0 
BSESSED. YOU’LL GET FAT 

20071 DATA WHAT’S YOUR FAVOURITE MEAL 

20080 DATA WOULD YOU LIKE TO TALK ABOUT 
FISH,HOW ABOUT SOME NICE FISH AND CHIPS 

20081 DATA HAVE YOU EVER SPENT A DAY BY 
A RIVER AND NOT CAUGHT ANYTHING 

30000 DATA TELL ME MORE ABOUT YOUR TALEN 
TS. DO YOU PLAY THE CONCERT PIANO ? 
30010 DATA WHAT KIND OF HOBBIES HAVE YOU 
GOT 

30020 DATA WHERE DO YOU WORK. OR ARF YOU 
AT SCHOOL. 

30030 DATA HOW ABOUT A BIT OF WORD ASSOC 
I AT I ON. +++ MATHS +•++ 

30040 DATA WHAT DOES THE WORD ’MACKEREl ’ 
SUGGEST TO YOU 

30050 DATA I’M AFRAID THAT I WILL HAVE T 
0 GO IN A FEW MOMENTS. I’M EXPECTING A 
VERY IMPORTANT CLIENT 



CATALOGUER 
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"All computer books are written for boys and men to play 
games on and there is never anything that is of any use to 
girls or harassed housewives." 

We have heard that cry many times and we don't agree 
that it's true as we think that many of the programs in this 
book can be used by everyone in the family. This 
program is definitely for everyone. 

Using this program you can list, store, and catalogue for 
future use record collections, cookery recipes, phone 
numbers, football team detail etc. 


Howto use 

You will be asked which option you wish to take from a 
'menu'. 
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Select your option. There is no need to press another key 
as the computer will move to your selected option. When 
making further moves press the RETURN key. 

Remember to press the SPACE key to start the save or 
load operation. 


Programming Hints 

If you have a disk drive facility then change the two open 
£2 statements as shown below 

Open £2,4,0, "c:" becomes open £2,4,0, "d: DATA" 

and 

Open £2,8,0,"c:" becomes open £2,8,0, "d:Data" 


The Program 


0 REM CATALOGUER 
20 OPEN £1,4,0, "l<: " 

30 DIM R$(500),1$(2000) 
40 DIM S*<1 1) „T*(41) 

50 C=0 


99 REM MAIN MENU 

100 GRAPHICS Os PR INT " 
LOG" 


110 PRINT " M 

120 PRINT SPRINT sPRINT 

130 PRINT "1. LOAD DATA FROM TAPE":PRIN 
T 


140 PRINT "2.. 
NT 

150 PRINT "3. 
160 PRINT "4. 
170 PRINT "5. 
NT 


CLEAR DATA IN MEM0RY"sPRI 

SAVE DATA TO TAPE": PRINT- 
SEARCH FOR RECORD" : PRINT- 
INPUT DATA TO MEMORY"sPR.I 
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1 SO PRINT :PRI N T :PR INT 
190 PRINT " YOUR CHOICE" 

200 GET £ 1 , T:IF T<49 OR T>53 THEN 200 
210 ON T—48 GOSUB 1000,2000,3000,4000,50 
00 

300 GOTO 100 

1000 OPEN £2,4,0, "C::" 

1010 INPUT £2,C 
1020 FOR L=1 TO C 
1030 T=l +(L-l)*10 
1035 1=1+(L-l)>40 
1040 INPUT £1,5$,T$ 

1050 R* (T, T+9) =5*: I $ ( I , I +39) =T* 

1060 NEXT L. 

1070 CLOSE £2:RETURN 

2000 PRINT "ARE YOU SURE <Y/N)"; 

2010 GET £ 1 , T: T$ = CHR$ (T) :: IF T<Jk >" Y" THEN 
RETURN 

2020 C=0:RETURN 

3000 IF C=0 THEN RETURN 

3010 OPEN £2,8,0,"C:" 

3020 PRINT £2,C 

3030 FOR L=1 TO C 

3040 T=l+(L--1 > *10 

3050 I=1+(L-1)*40 

3060 S$=R* (T, T+9) : T$ = I $ ( I , I +39) 

3070 PRINT £2,S$,T$ 

3080 NEXT L 

3090 CLOSE £2:RETURN 

4000 IF C=0 THEN RETURN 

4010 PRINT "RECORD NAME "3 

4020 INPUT S$;IF 3$="" THEN 4010 

4030 FOR L=1 TO C 

4040 T=1+(L-1>*10 

4050 1=1+(L-l)*40 

4060 IF R$ (T, T+L.EN < S$) -1 ) =S$ THEM PR T NT 
R$ (T, T+9) : PR I NT I <$ (I, I +39) 

4070 NEXT L 
4080 GET £ 1,T 
4090 RETURN 

5000 C=C+1:IF C=51 THEM C=50sRETURN 
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5010 PRINT "RECORD NAME "; 

5020 INPUT IF S$="" THFN 501 o 
5025 IF S*="QUIT" THEN C=C-1sRETURN 
5030 INPUT T$:IF T$="" THFN 5010 
5040 IF T$""QUIT" THEN C=H-Is RETURN 
5043 S*(LEN(S*)+ 1 , 11 )=" 

5046 T$ (LEN (T*) + 1,41) = " 

II 

5050 T=1+(C- 1)*10 
5060 1=1+<C-1)*40 
5070 R$(T„T+9) =5$: I $ ( I „ I + 59 ) =7 5 ; 

5080 GOTO 5000 



SPACE CITY 
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Returning from deep space in your shuttle you are faced 
with the dilemma of landing accurately and at the correct 
speed in the middle of space city. 

Slip to either side and you will hit one of the newly built 
towers. Land at too great a speed and you will smash 
your way through the specially prepared landing pad and 
explode. A further problem is that if you over-correct you 
will drift off into space—forever. 

By the way, you only have a limited amount of fuel in 
your tanks so, if you don't get down in time you will drift 
into the city. 


Howto play 

To use the retro rockets to assist your sideways 
movement press keys Z and X. 
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Use keys / and + to decrease or increase the thrust from 
the main engine and ensure a gentle landing. 

There are several levels of difficulty so if you shoot off 
into space you will be returned to the same level of play. 


Programming Hints 

To make the game easier, or more difficult, you can alter 
the amount of fuel available by changing the value of F in 
Line 55 atthe beginning of the program. 


The Program 


10 REM SPACE CITY 
15 DIM K(7) 

17 G-5: REM GRAVITY 

20 GRAPHICS 5+16 

30 GOSUB 1000 

35 POKE Cl,23 

AO GOSUB 2OO0 

50 H-40:REM HEIGHT 

55 F=300:REM FUEL 

60 V=2:REM VELOCITY 

70 T = 3:REM THRUST 

90 X = 100:REM HORIZONTAL F'OSN. 

95 S r -01 REM SIDEWAYS VELOCITY 
100 REM MAIN DESCENT LOOP 
102 SOUND 0,50,6,T+5 

105 F—F—T: IF FOG THEN F=0: T=0: SETCOLOR 
4,3,2 

110 A=X:B=H 

120 V = V+(G—T >/10 

130 H=H+V:X=X+S 

132 IF X<30 OR X >210 THEM 300 

134 IF H< 20 THEN 850 

140 POKE 53278,1 
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150 GOSUB 3000 

160 IF PEEK(53252)<>0 THEN 700 

200 IF PEEK(764)=23 AND S>-3 THEN S=S-1: 

POKE 764,0 

210 IF PEEK(764)=22 AND S<3 THEN 3=3+1:P 
OKE 764,0 

220 IF PEEK(764)=6 AND T<9 THEN T=T+1:P0 
KE 764,0 

230 IF PEEK(764)=38 AND T>0 THEN T=T-1:P 

OKE 764,0 

299 GOTO 100 

600 REM HIT A BUILDING 

605 FOR L=1 TO 255 STEP 3:POKE Cl,255-L: 
POKE 712,L:SOUND 0,L,4,14:NEXT L:SOUND 0 
, 0,0, o 

607 POKE HI,0 

610 GRAPHICS 1+16:POSITION 0,10:PRINT £6 
?"YOU CRASHED" 

615 POSITION 0,4:PRINT £6;" FUEL : "; F 

620 POSITION 0,14:PRINT £6;"TRY SOMETHIN 
G EASIER":G=G—1 
630 IF S<1 THEN G=1 
640 GOTO 750 

700 REM SHIP FOUND SOMETHING 
705 FOR L=1 TO 300:NEXT L 

710 IF PEEK(53252)=5 OR PEEK(53252)=4 TH 
EN 600 

715 IF V>2 THEN 605 
717 POKE H1,O 

720 GRAPHICS 1 +16: F'OS ITI ON 0,10: PRINT £6 
;"SUCCESSFUL LANDING" 

725 POSITION 0,4:PRINT £6;" FUEL : " : F 

730 POSITION 0,14:PRINT £6;"TRY SOMETHIN 

G HARDER":G=G+1 

740 IF G>8 THEN G=8 

750 FOR L=1 TO 999:NEXT L 

760 GOTO 20 

800 REM MISSED PLANET 

805 POKE H1,O 

810 GRAPHICS 1+16:POSITION 0,10 
82o PRINT £6;" you missed it" 
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830 GOTO 380 

350 REM DRIFTED INTO SPACE 
855 POKE H1,0 

860 GRAPHICS 1 +16:POSITI ON 0,10 
870 PRINT £6;"you went into orbit " 

830 FOR L=1 TO 500:NEXT L 
890 POSITION 0,15:PRINT £6;" same level 
again" 

395 FOR L=1 TO 500:NEXT L 
899 GOTO 20 

1000 REM SET UP LANDER GRAPHIC 

1010 HI=53248:Cl=704:POKE H1,0 

1020 POKE 559,62:POKE 53277,3 

1030 PMBASE=PEEK(106)-24:POKE 54279,PMBA 

SE 

1040 P1=PMBASE*256+1024 

1050 FOR 1=0 TO 255:POKE PI+1,0:NEXT I 

i 06 0 RESTORE 9000 

1070 FOR 1=0 TO 7:READ D 

1075 K(I)=D 

1080 POKE P1+1+40,D:NEXT I 
1099 RETURN 

2000 REM DRAW CITY/LANDING AREA 
2005 COLOR 3 

2010 FOR L=0 TO 75 STEP 5 
2020 H=INT(RND(1>*10+4) 

2030 FOR 1=0 TO 4:PLOT L+I,47 
2040 DRAWTO L+I,47-H:NEXT I 
2050 NEXT L 

2100 COLOR 1:L=INT(RND(1)*14)*5 
2110 FOR 1=0 TO 4:PLOT L+I,47 
2120 PLOT L+I,46:NEXT I 
2125 COLOR 4 

2130 FOR 1=45 TO 31 STEP -1:PL0T L,I 
2140 DRAWTO L+4,I:NEXT I 
2199 RETURN 

3000 REM ERASE OLD/DRAW NEW 

3010 FOR I = I NT < B) TO I NT CB+7) : POKE F'l + I, 

0:ME X T I 

3020 FOR 1=0 TO 7:POKE P1 +1 +1NT(H) , K(I) 



3030 NEXT I 

3090 POKE H1,X 

3099 RETURN 

3999 REM LANDER SHAPE 

9000 DATA 90,36,36,60,102,90,66,195 
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FLASHY GRAPHICS 



As the ATARI 600 XL has a superb range of colour 
graphics we thought it only fair to let it show them off to 
your friends and family. There are three demonstrations 
in this section which can be chosen from a 'menu'. 

The first program will run through the colours and tones 
availabletothe programmer. 

The second program will create an intricate mosaic effect 
which will then pulsate. 

The third program in the suite introduces a bouncing ball 
which moves under gravity and leaves a short coloured 
trail. 

Any, or all, of these programs are ideal for drawing 
attention to the computer and can be used as an attention 
getter in a window display. 
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Howto play 

Use keys 1,2 or 3 to select program. Use SPACE to return 
to the menu. 


The Program 


10 REM FLASHY GRAPHICS 
20 DIM A*<1> 

10 0 G R A P l-l IC S 1 + 16: F' 0 SI T10 N 0 , 4 
1.1.0 PRINT £6? "CHOOSE DEMO NIJMFCR" 

120 POSITION 0,7: PRINT £6;" (1 - 

) " 

130 OPEN £1,4,0,"K:" 

140 GET £ 1, A: A 'i> ~ C H R <r» ( A) 

150 IF A*<"1" OR A*>"3" THFN 140 
160 CLOSE £1 

1 7O ON A-48 G0SUB 1000,2OO0, 3OoO 
ISO GOTO 100 
900 END 

990 FOR W=1 TO 200:: NEXT W: RETURN 

1000 REM DEMO ONE 

1010 GRAPHICS 9+16 

1020 SETCOLOR 4,0,0 

1030 FOR X=0 TO 15 

1040 COLOR X 

.1050 FOR D=0 TO 2 

1060 C=X*5+D:PLOT C,O:DRAWTO C,191 
1070 NEXT D:NEXT X 
1100 FOR C--0 TO 15 

1110 SETCOLOR 4,C,0:GOSUB 990-NEXT C 
1120 SETCOLOR 4,0,0 

1130 GRAPHICS 11+32s REM SWITCH TO 16 COl 
ORS 

1140 FOR C=0 TO 15 

1150 SETCOLOR 4,0,C:G031JB 990; NEXT C 

1199 RETURN 

2000 REM DEMO TWO 

2010 GRAPHICS 15+16 




r-j M 
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201.5 SETCOLOR 0, 2, 14: SETCOL.DR 1,12 14 
2020 FOR x=0 TO 156 STER 4 
2030 COLOR 1 :PLOT X,0:DRAWTO 156, X 
2040 PLOT 156-X,156: DRAWTO 0,156-X 
2050 COLOR 2:PLOT 156,X:DRAWTO 156-X,156 

2060 PLOT 0,156.X:DRAWTO X,0 

2070 NEXT X 

2080 SETCOLOR 2,0,14 

2090 COLOR 3 

2100 FOR X=0 TO 32 

2110 PLOT 78+X,78:DRAWTO 78,78+X:DRAWTO 
78—X,78 

120 DRAWTO 78,78-X:DRAWTO 78+X,78 
130 NEXT X 
102 FOR C=14 TO 0 STEP -2 
2150 FOR C =14 TO 0 STFP -2 
2155 SETCOLOR 0,2,C:SETCOLOR 1,12,14-C 
2160 SETCOLOR 2,0,0:NEXT C 
2165 IF PEEK(764)=33 THEM 2199 
2170 FOR C=0 TO 14 STEP 2 
21SO SETCOLOR O,2,C:SETCOLOR 1,12,14-C■S 
ETCOL.OR 2, 0, C 
2190 NEXT C 

2195 IF PEEK(764)033 THEN 2150 
2199 RETURN 
3000 REM DEMO THREE 

3010 GRAPHICS 15+16 

30.15 SETCOLOR 2,2,14 

30.16 SETCOLOR 1,2,10: SETCOLOR 0,2,6 

3020 X=0:Y=190 

3030 A=2.5:B=6 

•j'040 E=U: F=(_): G=0: 0=0 

3050 K=0:L=0:M=0:N=0:0=0;P=0 

3100 C= X + A:D=Y+B 

3110 IF C<0 OR 0159 THEN A=-A:GOTO 3100 

-• 1 2( -> IF D<.O OR D>190 THEN B=~0. 95*B: GOTO 
3100 

3200 COLOR 4:PLOT INT(O),INT(P) 

3201 COLOR 1;PLOT INT(M),INT(N) 

3202 PLOT INT(K),IMT(L) 

3203 COLOR 2:PLOT INT(I), INT(J > 




N r-4 C -4 
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3205 PLOT INT < G),INT(H) 

3206 COLOR 3:PLOT INT(E),INT(F) 

10 PLOT INT <0,1NT(D) 

11 0=M :P=N: M=K :N=L 
13 K=I:L=J:I=G:J=H 

3215 G=E:H=F:E=X:F=Y 
3220 X=C:Y=D 
3250 B=B+0.11 

3260 IF PEEK(764)=33 THEN RETURN 
329? GOTO 3100 
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CHORDORGAN 



Now is your chance to show off those musical talents you 
have been boasting aboutforyears. 

This program will turn your 600 XL into a mini electric 
organ, and all for the price of a few minutes work typing 
in the listing. 

Instead of just giving you a few keys to press we have 
added the refinement of providing you with a selection 
of chords. 


Howto play 

The numeric keys represent the chords. Press a number 
to select. 

The keys on rows Q and A represent the 'melody' keys. If 
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you wish to pause during your recital, but don't wish to 
hear the continuous tone of your last note, press 
RETURN. Similarly, if you wish to perform a cadenza 
within your recital and cut off the chord, press SPACE. 

We wish you, and your long suffering relatives, many 
happy hours. 


The program 


10 REM CHORD ORGAN 
100 K=PEEK(764> 

110 IF K=31 THEN SOUND 1,251,10,10 
2,194,10,10:SOUND 3,164„10,10 


120 II 
2,128, 
130 IF 
2, 173 
140 IF 


2,114, 10, 10 sBOUND 3, 96, 10, 10 


150 If 
2,153 
160 IF 
2 , 102 
170 IF 
2, 148 
180 IF 
2,204 
190 IF 
2,136 


K=30 THEN SOUND 1,162,10,10 
10,10:SOUND 3,108,10„10 
l<=26 THEN SOUND 1,217,10,10 
10,10:SOUND 3,144,10,10 
K=24 THEN SOUND 1,144,10,10 


!<=29 THEM SOUND 1,193, 10 „ 10 


10,10:SOUND 3,128 
10-27 THEN SOUND 1 
10,10:SOUND 3,85, 
l<=51 THEN SOUND 1 
10, .10: SOUND 3,124 
1-0=53 THEN SOUND 1 
10,10:SOUND 3,164 
K—48 THEN SOUND 1 


10,10:SOUND 


108 


200 IF 
2,184 
210 IF K 
,0,0:SOUND 


K=50 THEN SOUND 1 
,10,10:SOUND 3,144 
THEN SOUND 0 
,0,0,0:SOUND 


10 , 10 
123 , 10 , 10 
10, 10 
187 , 10 , 10 
, 10 , 10 
251 , 10,10 
, 1 0 , 1 0 
, 162 , 10 , 10 
, 10, 10 


SOUND 

SOUND 

SOUND 

SOUND 

SOUND 

SOUND 

SOUND 

SOUND 

SOUND 

SOUND 


,217, .10, 10 

, 10 , 10 

,0,0,0:SOUND 1,0 


, O 


, 0, 0 


220 IF K=12 THEN SOUND 0,0,0,0 


230 IF K=63 THEN SOUND 0,124 
240 IF K=46 THEN SOUND 0,114 
250 IF K=62 THEN SOUND 0,108 


10, 14 
, 10 , 14 
, 10 , 14- 
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260 IF |< 
270 IF I- 
280 IF l< 
290 IF K 
300 IF l< 
310 IF K 
320 IF l< 
330 IF K 
340 IF l< 
350 IF !< 
360 IF K 
370 IF l< 
380 IF K 
390 IF X 
400 IF l< 
410 IF X 
420 IF X 


102 

, 10 

, 14 

96, 

10 , 

14 

9 1 , 

10 , 

14 

85, 

10, 

14 

81 , 

1 0 , 

14 

76, 

1 0 , 

14 

72, 

10 , 

14 

68, 

10 , 

14 


=56 THEN SOUND 0,91,10,1 
=45 THEN SOUND 0,85„10,1 
=61 THEN SOUND 0,81,10, 1 
=43 THEN SOUND 0,76,10,1 
=57 THEN SOUND 0,72,10,1 
=11 THEN SOUND 0,68,10,1 
=1 THEN SOUND 0,64,10,14 
=5 THEM SOUND 0,61,10,14 
=8 THEN SOUND 0,57,10,14 
=0 THEN SOUND 0,53,10,14 
=10 THEN SOUND 0,50,10,14 
=2 T H E N SOU N D 0,47, 10, 14 
=6 THEN SOUND 0,45,10,14 
=15 THEN SOUND 0,42,10,14 
=7 THEN SOUND 0,40,10,14 


430 GOTO 100 






DICE 
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If you are bored with shooting down missiles and 
defending the world from alien attack then here is a game 
to test yourgambling skill. 

The Atari will 'throw' five dice for you and you must try to 
achieve the best sequence possible for the greatest 
score. 

Possibilities to achieve highest scores are: 

One pair 
Three of a kind 
Two pair 

Full house (Three of a kind and two of a kind) 

Fourof a kind 

Low run 

High run 

Five of a kind 
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How to play 

After the computer's first 'throw' you can hold the dice by 
using keys 1 to 5. Press R to release all the dice. Use 
SPACE to roll the dice free. You have ten rolls to make 
your high score and give your partner a target to beat. 


The Program 


10 REM DICE 

20 GRAPHICS 1+16 

30 DIM D <5) ,F(5) ,S(6) ,N*(20) 

40 T=10 


100 

1 10 

1 15 

T=T—1:IF 
FOR L~1 

POSITION 

11 

T-0 
TO 5 s 
0,5s 

THEN 2000 

F CL) —0s NEXT L. 
PR I NT £6! " 

1 16 

POSITION 

II 

0,, 10 

-SPRINT £6?" 

1 17 

POSITION 

II 

0, 14 

SPRINT £6?" 

1 18 

POSITION 

0 , 1 9 

SPRINT £6;" 


120 GQSLJB 1000 
130 GOGUD 1200 
140 GOSUB 1000 
150 GDSLJB 1200 
160 GOSUB 1000 
200 GOSUB 3000 
210 SC“SC+NS 
220 GOTO 100 

1000 REM GENERATE AND SHOW 5 DICE 
1010 FOR L~1 TO 5 

1015 IF F (I.. ).1 THEN 1060 

1020 Q=INT(RND(1)*60+10) 

1 023 D (L.) = 1 
1025 FOR E=1 TO Q 
1 030 P0131T ION L. *3+2„4 
1035 D (L..) “D (L.) +■ 1 
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1040 IF D(L>=7 THEM D(L)=1 
1050 PRINT £6; D (I.) ; 

1055 NEXT E 
1060 NEXT 1. 

1099 RETURN 

1200 REM BET STOP FLAGS 

1202 POSITION 7,1:PR INT £6; "HOLD NOW" 

1 2 O 4 P 0 SIT10 N 0,5: P EIN T £ 6 5 " 

It 

1205 FOR L=1 TO 5:F(L)=0: NEXT L 
1210 OPEN £1,4,0, "K:" 

1220 GET £1,A 

1230 IF A--ASC (" ") THEN 1260 

1235 IF A=ASC("R") THEN CLOSE £1:G0T0 12 

04 

1240 IF A<ASC("1") OR A>ASC("5") THEN I? 
20 

1245 POSITI ON 3* (A --48) +2,5: PR I NT £6 5 CHR$ 
(ASC("+")+12B) 


1250 

F (A--48) =1: 

GOTO 1220 

1260 

CLOSE £1 



1270 

POSITION 7 

, 1:PRI NT 

£6; " 

12 SO 

RETURN 



2000 

REM END OF 

GAME 


2010 

GRAPHICS 1+16 


2020 

POSITION 0 

, 10 


2030 

PRINT £6;" 

end 

o-f game" 

2040 

POSITION 0 

, 13 


2050 

PR I NT £6;" 

your 

score is" 

2060 

POSITION 0 

, 16 


2070 

PRINT £6;" 


" ; STR* (S( 

2080 

POSITION 5 

ti .cLxl. 


2090 

PRINT £6;" 

< SPACE 

■*,. II 

2100 

OPEN £1,4, 

0, "K: " 


2110 

GET £1,A 



2120 

IF AOASC< 

" ") THEN 2110 

2130 

CLOSE £1 



2140 

RUN 



3000 

REM SCORE 

THE DICE 


3001 

REM SCORE 

IN NS 


3010 

FOR L.= 1 TO 

6: S (L) = 

0:ME X T L 
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3020 FOR L=1 TO 5 
3030 S (D (L.) ) ==S (D (LJ ) + 1 
3040 NEXT L 

3050 Z2=0:F0R L=1 TO 6 
3060 IF S(L)=1 THEN Z2=Z2+] 

3070 NEXT L 

3100 Z1=0:FOR L=1 TO 6 
3110 IF S(L)=0 THEN Z1=Z1+I 
3120 NEXT L 

3130 IF Z1~5 THEN GOSUR 4O00:G0T0 3500 
3140 IF Zl = l AMD S<6>=0 THEN GOSUB 4350• 
GOTO 3500 

3150 IF Zl = l AND S (.1 ) =0 THEN GOSUB 4400- 
GOTO 3500 

3155 IF Zl~l THEN GOSUB 4500:GOTO 3500 

3160 IF Zl=2 THEN GOSUB 4300:GOTO 3500 

3170 IF Z1< >3 THEN 3200 

3190 IF Z2~1 THEN G0SUB 4100:G0T0 35O0 

3190 IF Z2=2 THEN GOSUB 4250:GOTO 3500 

3200 IF Z2-1 THEN GOSUB 4200:GOTO 3500 

3 210 GOSUB 4050:GOTO 35O0 

3500 REM SCORE NOW IN NS AND 

3510 REM MESSAGE IN N'T 

3520 POSITION 0,10:PRINT £6;" 

II 

3530 POSIT I ON 0, 10:: PR I NT £6; NT 
3540 POSITION 0,14:PRINT £6;" SCOPE • 
" 5STRT(NS) ; " 

3550 POSITION 0,19:PRINT £6;" < SPACE 

II 

3600 OPEN £1,4,0, "Mr. " 

3610 GET £ 1,A 

3620 IF A< >ASC(" ") THEM 3610 
3630 CLOSE £1 
3640 RETURN 

4000 REM FIVE OF A KIND 

4010 NT~"****** EUREKA ■*•**• ■*•**■NS=5'">" RE-'T 
URN 

4050 REM PAIR AMD THREE 

4060 N$=" *■**■* FULL. HOUSE NS=3'"' ■ RFT 

URN 
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4100 REM TWO PAIRS 

41 ].u N$="** DOUBLE DOUBLE ** " : ■ pf-ji j 

RN . 

4200 REM FOUR OF A KIND 

4210 N$ = "**** FOUF? TIMES **** " ; |\jq—10- RFT' 
URN 

4250 REM THREE OF A KIND 

4260 N$="*** THREE TIMES ***" ; NS= 1 o■ PFTL1 
RN 

4300 REM ONE PAIR 

4310 N*=" MADE FDR EACH OTHERNS=7:RFTU 
RN 

4350 REM LOW RUN 

4360 N T = " * * * * * |_ 0 W RUM ***** " ■ MS“4" P F T U 
RN 

4400 REM HIGH RUN 

4410 N*="***** HIGH RUN *•#***": NS=40» RET¬ 
URN 

4500 REM MO SCORE AT ALL 

4510 N$= " ******* ZERO *******" : iMq-o ■ RETU 
RN ' “ 
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MISSILE COMMAND 



The inevitable has happened. 

Your defence force is off in deep space going where no 
man has gone before and you are the only pilot left to 
defend three cities against waves of missiles. Your force 
field has gone down so you must fly out and stop the 
invaders before they reach your undefended cities. Even 
if you stop the missiles in the first wave they will keep 
coming, and the colours of the screen will change to 
make it more difficult for you to identify the attacker's 
path. 


Howto play 

The missiles will come from the top of the screen and plot 
their way down towards you. You must cross their path 
and fire with your SPACE key. Remember that your 


67 


missiles may take a second to fire so you may have to 
predict the attacker's path of descent. 

To move use keys Z and X for left and right and / and + for 
down and up. 

If you score 5000, or multiples of this number, you will be 
given a bonus city to defend. As the attackers have 
different values of points according to which wave you 
are on you may have to decide to let one of your cities be 
destroyed in order that you achieve the 5000 points you 
need to proceed. This may seem a little tough on your 
citizens but you have to play on, don't you? 


Programming Hints 

To slow the attackers down, put in a delay statement as 
follows: 

Line 100 FOR QW = 1 to30: NEXTQW: IF J = 0 THEN 110 


The Program 


10 CI=3:B0=0sSC=0:WV=1 

19 DIM X(10),Y(10),A(10),D(1O) 

40 GRAPHICS 7+16:POKE 752,1 

50 GOSUB 6000 

70 N=INT(RND(1)*8+3) 

80 GOSLJB 3000 
90 C=0:M=N 

95 IF WVOl THEM GOSUB 8000 

96 IF Cl<3 AND BD<>0 THEN CI=CI+1:B0=BD- 

1:GOTO 96 . 

100 IF J=0 THEN 110 
106 J “■ J - 1 ; IF J ==: o THE N E = 1 
110 C--C+.1 n IF C~80 THFN 700 
115 IF N=Q THEN 700 
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120 FOR L=1 TO M 

121 GOSUB 200 

122 IF E=0 THEM 125 

1. 23 COLOR 2s S=E: X=Qs Y=Rs SOUND 0, E*12,4, 1 
4:GOSUB 4000:E=E+1 

124 IF E=2.1 THEN E=0:SOUND 0,0, 0,0 

125 IF Y (1...) -•.1 THEN 190 

127 COLOR 3 

130 PLOT X (I...) , Y (I...) 

140 X (L)=X (L.) •+• A (L) : Y (L) = Y (L) +B (L.) 

145 IF Y (L) >713 THEN Y (L) =-1 ; N=N-1: GOTO 1 
90 

150 LOCATE X(L),Y(L),D 

160 IF D< >2 THEN 190 

170 IF Y (L.) >70 THEM GOSUB 7000 

1 BO Y (L.) = --l: N=N—1 

185 SC=SC+10*WV 

190 NEXT L 

195 GOTO 499 

200 IF PEEK(764)=33 AND E=0 AND J=0 THEN 
J=3:Q=G:R=H 

220 IF PEEK(764)=23 AMD G>5 THEN COLOR 4 
:PLOT G,H 5 COLOR 2:G=G-lsPL0T G,H 
230 IF PEEK(764)=6 AND H>5 THEN COLOR 4: 
PLOT G,H:COLOR 2:H=H-1:PLOT G,H 
240 IF PEEK(764)=22 AND G<154 THEN COLOR 
4:PLOT G,H:COLOR 2:G=G+1:PLOT G, H 
250 IF PEEK(764)=38 AND H<64 THEN COLOR 
4:PLOT G,H:COLOR 2:H=H+1:PLOT G, H 
290 RETURN 

499 IF CI+B0>0 THEN 100 

500 GRAPHICS 17 
520 POSITION 0,5 

530 PRINT £6;" score : " ; SC 

540 POSITION 0,12 

550 PRINT £65" GAME OVER" 

560 POSITION 0,7 

570 PRINT £6;" WAVE NUMBER ";WV 
580 POSITION 0,19 
590 PRINT £6,"" 


RETURN 
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600 OPEN £1,4,0,"E:" 

610 GET £1,D 

620 IF D<>155 THEN 610 

630 CLOSE £i:RUN 

700 GRAPHICS 17 

710 SOUND 0,0,0,0:SOUND 1,0,0,0 

720 POSITION 0,5s PRINT £6; "END OF WAVE • 

"; wv 

730 WV==WV+1 

740 POSITION 0,10:PRINT £6;" ";Cl5" C 

ITIES" 

750 POSITION 0,17: PRINT £6; 11 bon 

us" 

760 (Cl +B0) * 100*WV 

770 FOR L=B TO 0 STEP -1.0 

775 SOUND 1 , L*200/B+4O, | o, 1 f> 

780 POSITI ON 8, 1.9: PR I NT £6; " " ; .. 

790 NEXT L 

795 SOUND 1,0,0,0 

800 SC-SC+B:IF INT(SC/5000)=SC/5000 THEN 
B0=B0+1.: POSITION 6,2:PRINT "BONUS CITY" 
890 FOR L=1 TO 800:NEXT L:GOTO 40 
1000 COLOR 1 
101.0 FOR S=1 TO 20 
1020 SOUND 0,S*12,4,14:GOSUB 4000 
1030 NEXT S 

1099 SOUND 0,0,0,0:RETURN 

3000 FOR L=1 TO 10 

3020 X(L)=INT(RND(1)*160):Y(L)=0 

3025 S=INT(RND(1)*40)+40 

3030 ON INT(RND(1)*3+1) GOTO 3040,3050,3 
060 

3040 A(L)=(25-X(L))/S:B(L)-(78-Y(L))/S-G 
OTO 3070 

3050 A (L) = (65-X (L) ) /S: B (L) - (77-v (L) ) /S>G 
OTO 3070 

3060 A (L) = < 135—X (L) ) /S: B (L) = (75-Y (L) ) /S 
3070 NEXT L 

3080 G=80:H=50sCOLOR 1:PLOT G,H 
3090 J=0:E=0:RETURN 

4000 SS=S:IF S>10 THEN COLOR 4:SS=S-10 
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4010 ON SS GOTO 4020,4030,4040,4050,4060 
, 4070 , 4 080 , 4090 , 4100,411 0 

4020 PLOT X , Y: PLOT X + 1, Y: PLOT X , Y +1 : RFTIJ 
RN 

4030 PLOT X.1,Y:PLOT X,Y.1:RETURN 

4040 PLOT X+2,Y:PLOT X +1,Y+1:PLOT X,Y+2: 
PLOT X- .1 , Y-H : RETURN 

4050 PLOT X-2,Y:PLOT X-l,Y~1:PLOT X,Y-2: 
PLOT XU,Y.1:RETURN 

4060 PLOT X-2,Y+2;PLOT X-2,Y+l:PLOT X-3, 

Y:PLOT X.2,Y.1:PLOT X.2,Y-2:PLOT X-l,Y-2 

4065 PLOT X , Y-3: PLOT X + 1 , Y-3:PLOT X + 1,Y- 
2:RETURN 

4070 PLOT X+2,Y-2:PLOT X+2,Y-1:PLOT X+3, 
Y:PLOT X+2,Y+1:PLOT X+2,Y+2:PLOT X +1,Y+2 

4075 PLOT X,Y+3:PLOT X.1,Y+3:PLOT X-1,Y+ 

2:RETURN 

4000 PLOT X,Y.4:PLOT X.1,Y.4:PLOT X-l,Y- 

3: PLOT X-2, Y-3: PLOT X- 3, Y-2: PLOT X-3,Y.1 

: PLOT X —4, Y--1 

4005 PLOT X-4,Y:PLOT X.3,Y+1;PLOT X - 3,Y+ 

2:PLOT X-2,Y+3:PLOT X-1,Y+4:RETURN 
4090 PLOT X,Y+4:PLOT X+1,Y+4:PLOT X+1,Y+ 
3:PLOT X+2,Y+3:PLOT X+3,Y+2:PLOT X+3,Y+l 
:PLOT X+4,Y+1 

4095 PLOT X+4,Y:PLOT X +3,Y-1:PLOT X+3,Y- 

2:PLOT X+2,Y-3:PLOT X+1,Y.4:RETURN 

4100 PLOT X,Y-5:PLOT X.1,Y.5:PLOT X.2,Y- 

4;PLOT X.3,Y-3:PLOT X4,Y .2:PLOT X-5,Y.1 

:PLOT X-5,Y 

4105 PLOT X-5,Y+l:PLOT X-4,Y+l:PLOT X-4, 

Y+2:PLOT X-3,Y+3:PLOT X.2,Y+4:PLOT X.1„Y 

+5 

4107 RETURN 

4110 PLOT X,Y-5:PLOT X +1,Y+5:PLOT X+2,Y+ 
4:PLOT X +3,Y+3:PLOT X + 4,Y+2:PLOT X +5,Y +J 
:PLOT X+5,Y 

4115 PLOT X+5,Y.1:PLOT X+4,Y-l:PLOT X+4, 

Y-2:PLOT X+3,Y-3:PLOT X+2,Y-4:PLOT X+1,Y 
-b 

4117 RETURN 
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6000 COLOR 1 

6010 RESTORE 10000 

6015 READ D:PLOT 0,D 

6020 FOR L=10 TO 150 STEP 10 

6030 READ D:DRAWTO L,D:NEXT L 

6040 READ D:DRAWTO 159, D 

6045 COLOR 2 

6047 ON Cl GOTO 6070,6060,6050 
6050 X=20: Y~78: GOSIJB 6500 
6060 X=60: Y-~77 : GOSUEi 6500 
6070 X = 1 30: Y=75: GOSIJB 6500 

6499 RETURN 

6500 RESTORE 11000 
6520 PLOT X,Y 
6530 READ A, E< 

6540 DRAWTO X+A,Y+B 

6550 X=X+A:Y=Y+B 

6560 IF A< >0 OR BOO THEM 6530 

6599 RETURN 

7000 IF X (L) <35 THEN X=25: Y=78: GOSLIB 1O0 
0:CI=CI-1: X =20.-COLOR 4: GOSLIB 6500; ROTO 7 
099 


7020 IF X (L) <75 THEN X=65: Y=77: GOSIJB 100 
0:CI=CI-1: X=60: COLOR 4: GOSIJB 6500: GOTO 7 
099 


7030 X=135:Y=75:G05UB 1000:CI=CI-1:X=130 
:COLOR 4: GOSLIB 6500:GOTO 7099 
7099 RETURN 
8000 C1=INT(RND(1)*16> 

8020 C2=INT(RND(1)*16):IF C2=C1 THEN 802 
0 


8030 C3=INT(RND<1)*16): IF C3=C2 OR C3=C1 
THEN 8030 

8040 C4=INT(RND(1)*16):IF C4=C3 OR C4~C^ 
OR C4=C1 THEN 8040 

8050 C5=INT(RND(1)*16):IF C5=C4 OR C5=C3 
OR C5=C2 OR C5=C1 THEN 8050 
8060 SETCOLOR 1,C2,INT(RND(1)*10+5) 

8070 SETCOLOR 2,C3,INT(RND(1)*10+5) 

8030 SETCOLOR 3,C4,INT(RND(1)*10+5) 

8090 SETCOLOR 4,C5,INT(RND(1)*16) 
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8099 RETURN 

l 0000 DATA 72,75,79,79,73,76,78,78,74,71 
,72,74,79,76,76,73,70 

11000 DATA 9,0,0,-3,-1,0,0,-2,-3, 0, 0,3 
11010 DATA -2 , 0 , 0 ,- 2,-2,0,0 ,3, -1,0, 0, 1 
11020 DATA 3„0,0,-2,4,0,0,1,1,0,0,-1 
11030 DATA 0,0 
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BIORHYTHM GRAPHING 
AND PREDICTION 



Don't worry it isn't going to hurt you, just lie back and 
enjoy the sensation of your life flashing past you. 

In simple terms this is a system which will allow you to 
predict the type of day you are going to have, or check 
and see if the day just passed, is as bad as you think 
possible. 

You type in the data and your 600 XL will tell you, and 
show you the shape of the day to come. It will also give 
you an idea of the days on both sides of the day in 
question. 


Howto use 

The 600 XL will ask you to enter your birth date and the 
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date of the day on which you are using the program. 

You will then be asked for the year, month and day/date 
of the week you wish to predict. When you are asked for 
the day remember to enter the day/date not just any day 
as there are, of course, several Tuesdays in a month. 

Press RETURN key after each entry. 

After you key in the final information the computer will 
produce a chart of your physical, emotional and 
intellectual state on the day in question. As we said 
before, you will also see a picture of the days on either 
side and you may then decide not to leave your bed for 
the next week. 

To clear, type RUN and return to the menu. 


The Program 


REM BIORHYTHM GRAF"'I-I I IMG AMD PRFDICTIDN 
12 DEG 

15 DIM T*(20),M$(20) 

20 GRAPHICS 0: P0SI TIC)N 0,4: PRI NT " F< IRTH 
DATE : " 

30 GOSLJB 1000 
4 0 B Y - Y: B M=M: B D ~ D 

50 GRAPHICS 0:POSITI ON 0,4:PRINT "DATE T 
0 INVESTIGATE :" 

60 GOSLJB 1000 

100 GOSUB 2000 

110 PH=DAYS-23*INT(DAYS/23) 

120 EM=DAYS-28* I NT (DAYS/28) 

130 IT--DAYS-33* I NT (DAYS/33) 

140 GRAPH ICS 7: POKE 752, 1 : PR I NT- 
150 PRINT "PHYSICAL CYCLE" 

16 O 0=P H / 23*360: M U=2 8 / 2 3 
170 COLOR 1:GOSUB 3000 
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200 PRINT "EMOTIONAL CYCLE" 

210 0=EM/28*360:MU=1 

220 COLOR 2:G0SUB 3000 

300 PRINT "INTELLECTUAL.. CYCLE" 

310 0■= I T/33*360: MIJ=28/33 
320 COLOR 3:G0SUB 3000 
330 PRINT "DATE REQUESTED" 

340 PLOT 80,0:DRAWTO 80,7? 

400 END 

1000 REM READ IN A DATE 

1010 POSITION 0, 10:PRI NT "YEAR. 

":POSITION 9,10 

1020 INPUT Y:IF YOINT(Y) THEN 1010 
1030 POSITION 0,15:PR INT "MONTH.... 

POSITION 9,15 

1040 INPUT MS 

1050 IF MS(1,1)>"0" AND MS(1,1)<="9" THE 
N M=OAL(MS):GOTO 1100 
1060 RESTORE 9000 
1070 M'-'O: FOR L==l TO 1.2 

1 080 READ TSs IF TS (1,3) =MS (.1,3) THEN M=l 
1090 NEXT L. 

1100 IF M=0 OR MOINT(M) OR M> 12 THEN 10 
30 

1110 POSITION 0,2.0s PRINT "DAY. 

":POSITION 9,20 
1120 INPUT D: IF D< 1 OR D>31 OR D<’ : [NT (D) 
THEN 1 1 10 
1199 RETURN 

2000 REM FIND NUMBER OF DAYS 
2010 DP=0:DM=0 

2020 DP=365.25*Ys DM=365.25*BY 
2030 RESTORE 9500 
2040 FOR L-l TO 12 
2050 READ T 

2060 IF M=L THEN DP=DP+T 
2070 IE BM=L THEN DM=DM+T 
2080 NEXT L 
2090 DP=DP+D:DM-DM+BD 
2100 DAYS=DP—DM 
299? RETURN 
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3000 REM DRAW A CYCLE 

3005 PLOT 0, 75.(37.5+37. 5*5IN (-360*MIJ+0) 

) 

3010 FOR TH=-360 TO 350 STEP 2.5 
3020 X=TH/4.5+80:Y=37.5+37.5*SIN(TH*MU+C) 
) 

3030 DRAWTO X,75-Y 
3040 NEXT TH 

3100 FOR W=1 TO 600:NEXT W 
3999 RETURN 

9000 DATA JAN, FEB, MAR, APR, MAY, JIJN 

9010 DATA JUL,AUG,SEP,OCT,MOV,DEC 

9500 DATA 0,31,59,90,120,151,181,212,243 

,273,304,334 



WALL DODGE 



This time you have a very unusual objective as you must 
crash your space vessel to earn points. 

Let us all hope that there is some sense in what we have 
been asked to do by Command Headquarters. 


How to play 

Scrolling down the screen are three walls of different 
colour and construction. 

Each wall has gaps within it's structure and you must 
shoot through the first two walls and hit the third. If you 
think that is simple we should tell you that the walls 'spin' 
at different speeds and the gaps are of different sizes, and 
are in different places from reel to reel. 
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You must anticipate the spins, line up the gaps, and 
launch your vessel using SPACE bar. 

To line up your launch use keys A and Z. 


You have ten shots and you achieve maximum points if 
you hit the third wall. 

By the way, the third wall has more gaps than wall so you 
could fly straight through and get no points at all. 

If you score 150 exactly you will be given ten bonus 
points and ten extra attempts. 


The Program 


10 REM WALL DODGE 

11 REM WITH M/CODE MOVEMENT 

20 GRAPHICS 5:POKE 702, 1:PRINT 
30 GOSLJB 1000 
40 GOSLJB 1500 
50 F=U: S=65 

60 Y=100: X=S: GOSLJEi 3000 

70 POKE HI,100:POKE H2,150:POKE H3,200 

B u P 0 K E Cl,200:P0KE C2, 100:P0KE C5,5 n 

90 POKE C4,38 

95 SC=0:G=io 

97 N=:LO 

100 GOSUB 2000 
105 IF F=1 THEN 300 
107 IF G=0 THEN 800 

11U IF PEEK(764)=23 THEN Z=U S R (12381) 

120 IF PEEK(764)=63 THEN Z=USR(12412) 

130 IF REEK(764)=33 THEM F=1:G=G-1:POKE 
764,0 

200 GOTO 100 

300 X=X+2:POKE 53278,1:POKE H4,X 
310 IF PEEK(53263)=0 THEN 3RO ' 
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320 SC=SC+10*PEEK(53263) 

330 PRINT " 10*PEEK(53263):X=220 

340 IF SC=150 THEM SC=SC+10:N=20:G=G+10s 
PRINT " 10 BONUS SHOTS" 

380 IF X<210 THEM 100 

390 F-0sX=5sPOKE H4,X:GOTO 100 

800 GRAPHICS 1+16 

805 POKE HI ,0s POKE H2,Os POKE H3,0sPOKE H 
4,0 

810 POSITION 0,3 s PRINT £6; " game over" 
820 POSITION 0,1 Os PRINT £.6 5Ns" SHOTS FI 
RED" 

830 POSITION 0,17:PRINT £6 3" SCORE s"3 SC 
840 OPEN £1,4,0,"Ks" 

850 GET £ 1,A:IF A< >32 THEN 850 
860 CLOSE £1 
870 RUN 

1000 REM SET UP THE PLAYERS 
1010 POKE 559,62:POKE 53277,3 
1020 PMBASE-40:POKE 54279,PMBASE 
1030 H1=53248:H2=H1 +1s H3=H2+1:H4=H3+1 
1040 C1=704 s C2=C1 +1s C3=C2+1s C4=C3+1 
1050 POKE HI,0sPOKE H2,Os POKE H3,0:POKE 
H4,0 

1060 P1=PMBASE*256+1024 s P2=P1+256:P3=P2+ 
256:P4=P3+256 

1070 FOR 1=0 TO 254 STEP 2 
1080 POKE P1+1,170:POKE P1+I+1,85 
1090 POKE P2+1,170s POKE P2+1 + 1,85 
1100 POKE P3+1,170 s POKE P3+1 +1,85 
1105 POKE P4 +1,0:POKE P4 +1 + 1,0 
1110 NEXT I 

1120 FOR 1=0 TO 192 STEP 64:FOR L=0.TO 3 
1 

1130 POKE P2+L+1,0:NEXT L:NEXT I 
1140 FOR 1=0 TO 127:POKE P3+1,0:NEXT I 
1150 FOR 1=0 TO 224 STEP 32:FOR L=0 TO 1 
5 

1160 POKE Pl+L+I,Os NEXT L:NEXT I 
1199 RETURN 

1500 REM READ IN THE MACHINE CODE 





w r-J <i 
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1510 RESTORE 9000 
1520 FOR L.-12288 TO 12442 
1530 READ D:POKE L, D 
1540 NEXT L 
1599 RETURN 

2000 REM MOVE THE WALLS 
2010 Z=USR(12288):Z=!.J3R( 12311) 
2020 Z=USR(12342):RETURN 
3000 REM DRAW SHIP 
3010 POKE H4,X 


3020 POKE P4+Y,240:POKE P4+Y+1,112:POKF 
P4+Y+2,60 

3030 POKE P4+Y+3, 112:POKE P4+Y+4,240 
•3040 RETURN 

9000 DATA 173,255,44,72,162,254,189,0,44 

,157,1,44,202,224,255,208,245 

9010 DATA 104,141,0,44,104,96 

9100 DATA 173,254,45,72,173,255,45,72,16 

2,253,189,0,45,157,2,45,202,224,255 

9110 DATA 208,245,104,141,1,45,104,141,0 

,45,104,96 ' ' 

9200 DATA 173,253,46,72,173,254,46,72,17 
3,255,46,72,162,252 

9210 DATA 189, O, 46, 157,3, 46, 202, 2"?4 ^55 

208,245 .. ? 

9220 DATA 104,141,2,46,104,141,1,46,104, 
141,0,46,104,96 

300 DATA 173,254,47,72,173,255,47,72,16 
,253,189,0,47,157,2,47,202,224,255, 208, 
45,104,141,1,47,104,141,0,47,104,96 
9400 DATA 173,0,47,72,173,1,47,72,162,0 

189,2,47, 157,0,47,232,224,253 * 

9410 DATA 208, 245’ 104’, 141 * 255,47, ] 04,141 
,254,47,104,96 " ' 
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SUBMARINE HUNTER 



Before the advent of missiles and the like submarines 
used to hunt in packs after unsuspecting merchant ships 
who couldn't retaliate. We have taken things back to this 
situation but we have changed the rules in your favour. 
This time the submarines can't retaliate. 

A pack of subs, is heading for a rendezvous and are under 
attack from your cruiser. Although there are many 
submarines in the area, only two will appear on the 
screen at anytime. 

One of the wolf pack is much slower than the other and 
should be easy to depth charge, but the leader is quicker 
and is diving forthe sea floor. 
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Howto play 

Both submarines begin near the surface and try to diveto 
the bottom to escape. You must sink them before they 
escape as, if three get away, the game will end. 

Use keys Z and X for left and right and SPACE for 
dropping your depth charges. 

You will get 30 points for sinking the leader and 15 points 
for hitting the slower of the two vessels. 


Programming Hints 

To alter the size of the submarines, and make them easier 
to hit, change LINE 40 to 1. This will double the size of the 
targets. 

To change the rate of descent of the depth charges alter 
LINE 330 by adding Z=USR (12381): Z = USR (12381). 


The Program 


10 REM SUBMARINE HUNTER 

11 REM WITH M/CODE MOVEMENT 
15 GOStJB 1500 

20 GRAPHICS 5:POKE 752,1:PRINT 
25 WV=1:E=0 
30 GOSLJB 1000 

40 V=0:REM DIFFICULTY 0 OR 1 
50 Y=80sGOSUB 2000 
60 X = 100 s POKE H1,X 

65 A=40:B=200:POKE H2,A:POKE H5,B 
67 C=l:D=--3 

70 POKE 53256,V:POKE 53257,V:POKE 53250, 
V 



83 


75 P--0: Q—0 
SO POKE 623,1 

90 SETCOLOR 4,9,4:SETCOLSR 2,9,4 
95 POKE Cl,200:POKE C2, 90: POKE C3, 15E! 

100 IF PEEK(764)“23 AND X>40 THEN X=X-7: 
POKE H1,X 

.1.10 IF PEEK (764) =22 AND X<?00 THEM X = X+? 
:POKE H1,X 

120 IF PEEK (76■4) -■ 33 AMD F=0 THEM F -1 : P 0 K 
E H4, X+4: GOSLJB 2100 
190 IF A=0 THEN 210 

200 A=A+C s P 0 KE H2, A: IF A<40 OR A>200 THE' 
N C=-C; C30SUI3 4000 
205 IF B=0 THEN 300 

210 B=B+D:P0KE H3,B: IF B<40 OR p>200 THF 
N D=~D:GOSUB 4100 
300 IF F-0 THEN 400 

310 F=F+1:IF F=50 THEN F-0:POKE 764,0;GO 
TO 400 

320 POKE 53278,1 

330 Z=USR<12381):Z=USR(12301) 

340 IF pEEK(53263)-0 THEN 4O0 
350 SC=SC+15*PEEK(53263):PRINT " 

" 5 SC 

355 FOR L--0 TO 240 STEP 3: SOUND 2,1... ,4,14 
:NEXT L:SOUND 2, 0,0,0 

360 IF PEEK (53263)-2 THEN A=0:F’0KE H2,0: 
GOTO 400 

370 B=0sPOKE H3,0 

400 IF A + BOO THEN 100 

410 IF E<3 THEN WV=WV+1;GOTO 30 

420 GRAPHICS 1+16:POSITION 0,5:PRINT £6; 

"THREE SUBS. ESCAPED" 

425 POKE H 1,0: POKE H2,0:P0KE H3,0:F'0KE H 
4,0 

43o POSITION 0, 12: PRINT £65 " end o-f gam 
e" 

440 POSITION 0,14:PRINT £65" SCORE :"S 
SC 

445 POSITION u,16:PRINT £65" wave "5 

WV 
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450 POSITION 0,19:PRINT £ 6 ;" <SPACF>" 
460 OPEN £1,4,0,"K:" 

470 GET £ 1,A:IF A< >32 THEN 470 
480 CLOSE £1 
490 RUN 

1000 REM SET UP THE PLAYERS 
1010 POKE 559,62:POKE 53277,3 
1020 PMBASE=40sPOKE 54279,PMBASE 
1030 H1=53248:H2=H1+1:H3=H2+1:H4=H3+] 

1040 C.1 =704: C2=C 1 +1 : C3=C2+1: C4=C3+ J 
1050 POKE H1,0:POKE H2,0:P0KE H3,O : P0KE 
H4,0 ' ' 

1060 P1 = PMBASE* 256 +1024: P2=P 1 +256: P 3 =p-?+ 
256:P4=P3+256 
1070 Z=IJSR< 12396) 

1080 PRINT CHR$(125);" WAVF NUMBFR 
WV;"" 

1199 RETURN 

1500 REM READ IN THE MACHINF CODE 

1510 RESTORE 9000 

1520 FOR L=12288 TO 12416 

1530 READ D:POKE L,D 

1540 NEXT L 

1599 RETURN 

2000 REM DRAW IN INITIAL SHIP/SUE-tS. 

2010 RESTORE 10000 

2020 FOR L=0 TO 7:READ A,B,C 

2030 POKE P1+L+48,A:POKE P2+L+Y,E< 

2040 POKE P3+L+Y,C 
2050 NEXT L 

2099 RETURN 

2100 REM DRAW IN INITIAL DEPTH CHARGE 
2HO POKE P4-+60, 24: POKE P4+61,60: POKE P 4 
+62,60:POKE P4+63,24:RETURN 

4000 REM MOVE SUB.1 DOWN 

4010 FOR L=1 TO 10:S0UND 1,10*L,lO,14- 7 = 
USR(12311):NEXT L:SOUND 1,0,0,0 
4020 P=F' +1 s IF P =8 THEM A=0:P0KE H2 0»E=E 
+ 1 

4099 RETURN 

4100 REM MOVE SUB.2 DOWN 
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411.0 FOR L= 1 TO 10: SOUND 1,20*L,10,14:Z = 
USR(12342):MEXT L:SOUND 1,0,0,0 
4120 Q=Q+1:IF Q=6 THEN B=0sPOKE H3,0:E=E 
+ 1 

4199 RETURN 

9000 DATA 173,255,44,72,162,254,189,0,44 

,157,1,44,202,224,255,208,245 

9010 DATA 104,141,0,44,104,96 

9100 DATA 173,254,45,72,173,255,45,72,16 

2,253,189,0,45,157,2,45,202,224,255 

9110 DATA 208,245,104,141,1,45,104,141,0 

,45,104,96 

9200 DATA 173,253,46,72,173,254,46,72,17 
3,255,46,72,162,252 

9210 DATA 189,0,46,157,3,46,202,224,255, 
208,245 

9220 DATA 104,141,2,46,104,141,1,46,104, 
141,0,46,104,96 

9300 DATA 162,253,189,0,47,157,2,47,202, 

r "> '*0 /i '-^ercr 

4. 4. *T J| 

9310 DATA 208,245,104,96 

9400 DATA 162,O,169,O,157,0,44,157,0,45, 

157,0,46,157,0,47 

9410 DATA 232,208,241,104,96 

10000 DATA 64,4,32 

10001 DATA 94,4,32 

10002 DATA 82,4,32 

10003 DATA 243,126,126 

10004 DATA 255,193,131 

10005 DATA 127,193,131 

10006 DATA 63,126,126 

10007 DATA 0,0,0 
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SAFECRACKER 



Here is your chance to see if you could be of any use to 
Smiley's People as an inside man. 

We have set up a series of numeric codes for you to 
'crack' in orderto open the safe. 

Digits range from 1 to 8 inclusive. 


Howto play 

Your computer will select, at random, it's own sequence 
and ask for your first choice of four numbers. 

Enter your numbers and press RETURN. 

After your first 'guess' your 600 XL will put up it's 'mark' 
to show you how many of your numbers are correct, and 
how many are in the right place. 
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You will not be told which of your numbers is in the 
correct place, only that one, or more, is in the correct 
place. You will still have to decide for your next move 
which ofyourfirst selection is correct. 

We told you it was a test for Smiley's People didn't we. 


The Program 


10 REM SAFE CRACKER- 
20 DIM C(3), G (3 >,7(3) 

30 GOSIJB 1000 

40 GRAPHICS 1416 

50 G=0:F=0 

60 OPEN £1,4,0,"K:" 

80 GOSIJB 1500 

100 G=G+1:IF G=ll THEN 900 

110 GOSUB 2000 

120 GOSUB 3000 

130 IF F = 0 THEN 100 

200 REM CORRECT DEDUCTION 

210 POSITION 0,18:PRINT £ 6 ;"CORRECT 

11 N 
■I 

220 FOR L“ ; 0 TO 3 
230 PRINT £ 6 !C(L)5" 

240 NEXT L. 

2.50 POS ITI ON 0,20: PR I NT £ 6 ; " IN " ; G; " 
TURNS" 

260 GOTO 940 

900 REM NUMBER NOT GUESSED 

910 POSITION 0,18:PRINT £ 6 ;"THE NUMBER W 

AS : " 

920 POSITION 0,20:PRINT £6; " " ; 

930 FOR L=0 TO 3:PR INT £ 6 :C(L>!" "JsNEXT 
L 

940 GET £1,A: IF A<>32 THEM 940 
950 CLOSE £1 
960 RUM 

1000 REM RANDOM DIGITS TO CO 
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1010 C(0)=INT(RND(1)*R+j) 

1020 FOR L=1 TO 3 
1030 C(L)”INT(RND(1)*8+1) 

1040 FOR 1=0 TO L--1 

1050 IF C (L) =0 (I) THEN C (L) = I NT (RND ( I ) *E) 

+1):GOTO 1050 

1060 NEXT I 

1070 NEXT L 

1099 RETURN 

1500 REM TITLE COLUMNS 

1510 POSITION 0,0:PRINT £ 6 ;"YOUR GUESS m 
y mark” 

1599 RETURN 

2000 REM GET A GUESS INTO GO 
2010 L=0 

2020 GET £1,D:D=D-4B 
2025 IF D=78 THEN 2100 
2027 IF D=107 THEN 2200 
2030 IF D<1 OR D >8 THEN 2020 
2035 IF L=4 THEN 2020 

2040 POSITION 2+L*2,G+2: PRINT £ 6 ; CHR$ (D+- 
144) 

2050 G(L)=D:L=L+1:GOTO 2020 
2100 L=L-1:IF L=~l THEN L=0 
2110 POSITION 2+L*2,G+2:PRINT £ 6 !" 

2120 GOTO 2020 

2200 IF L.<3 THEM 2020 

2299 RETURN 

3000 REM SCORE GO AGAINST CO 

3010 B1=0:W1=0 

3020 FOR H=0 TO 3 

3030 IF G(H)=C(H) THEN B 1 =B 1+1 

3040 NEXT H 

3050 FOR L=0 TO 3:T(L)=C(L):NFXT L 
3060 FOR J=0 TO 3 
3070 IF T C J )=—1 THEN 3110 
3080 FOR L=0 TO 3 

3090 IF T(J)=G(L) THEN W1=W1+1:T(J)=-i 
3100 NEXT L 
3110 NEXT J 
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3120 W1=W1-B1 
3130 IF B1=4 THEM F=1 
3200 POSITION 14,2+G 
3210 PRINT £6 ;BIS" "sWl 
3999 RETURN 



This is a cheap way to play the machines without having 
to risk any of your hard earned cash. 

You will be given a fixed amount of credits at the 
beginning of the game and you are then playing against 
fate. 


Howto play 

The 600 XL will spin the reels to begin the game and then 
stop on the centre line of the 'window'. 

Two of a kind will give a small payout and three will, 
obviously, give a greater reward. 
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There are random holds available to you and you select 
these by pressing 1, 2 or 3. If you change your mind on 
the holds you can release all reels by pressing R. You can 
then re-select the hold function if you wish. 

If the third reel stops on A then the machine will go into 
an auto-seek function and will stop when it selects three 
of a kind. 

After selecting your holds press SPACE to spin the 
remaining reels. If you do not wish to hold, or cannot 
hold, then press RETURN forthe next spin. 

The game ends when you are broke, or if you press 
BREAK. 


Programming Hints 

To change the success rate alter the data in Lines 9000 to 
9150. Digits 0 to 9 are allowed. 

To change the payouts alter the data in Lines 20000 to 
20010. This will mean you can have greater earnings, or 
greater losses. 


The Program 

10 REM FRUIT MACHINE 

11 REM WITH M/CODE SPIN 

1.5 DIM A (31) , B < 31 ) , C (31 ) , G (79) 

17 DIM P(3),H(3) 

20 GOSUB 1000 
30 GOSUB 2000 
40 GOSUB 3000 
45 POKE 752,1 

50 POKE HI, 100: POKE H2, 124: POKE 1-13,148 
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60 M~20 

65 COL.OR 3: PL0T 10,12: PLOT 29, 12 
70 PRINT "CREDITS ;» 

80 P(1)=16:P(2)=16:P(3)=16 

90 POKE C 1,88: POKE C2„ 200:: POKE C3,38 

100 PRINT ”STR$(M);" 

110 IF M---0 THEN 900 

115 H < 1 )=0:H < 2)=0:H(3)=0:REM NO HOLDS 
117 COLOR 2:PLOT 13,8:DRAWTO 26,8 
120 IF RND (.1 ) >0. 7 THEN GOSIJB 4000 
200 REM SPIN REELS 
202 M=M-1 

205 IF H(1)+H ( 2) H I <3)=3 THEN 400 

210 GOSIJB 4100 

220 IF RND(1)<0- 95 THEN 210 

230 H(l)=l 

240 GOSUB 4100 

250 IF RND(1)<0.92 THEM 240 

260 H < 2)=1 

270 GOSUB 4100 

280 IF RND(1)<0.9 THEN 270 

290 REM REELS ALL STOPPED 

400 REM SCORE REEL SETTING 

410 P=A(P(1) ) :Q=B(P(2) ) :R«c(P < 3) ) 

420 IF R<>9 THEM 450 

425 PRINT " AUTO HUNT ":PP 

I NT "" 

427 FOR I =200 TO 0 STEP .3:: SOUND 0,1,10, 

14:NEXT I 

428 SOUND 0,0,0,0 

430 H(1)=1:H(2)=0:H(3)=0 

432 GOSUB 4100: IF POB!Pi2)) THEN 43'? 

433 H(2)=1 

434 GOSUB 4100: IF POC(P(3)) THEN 434 
440 GOTO 410 

450 IF POQ THEM 540 
460 IF Q=R THEN 500 

469 REM PAIR ON THE LEFT 

470 RESTORE 200OO«REM SCORES 
480 FOR 1=1 TO P+1:READ D:NEXT I 

490 M=M+D:PRINT " PAIR SCORES : ";STP 

*<D>:PRINT "":GOTO 550 
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4?? REM ALL THE SAME 

500 RESTORE 20010:REM SCORES 

510 FOR 1 = 1 TO P+1; READ D:: NEXT I 

520 M=M+D:PRINT " TRIPLE SCORES : "qSTR 

*(D)sPRINT ""s GOTO 550 

530 REM MO SCORE 

540 PRINT " NO WIN LINE":PRINT "" 

54? REM END OF SCORING 
550 OPEN £1,4,0,"K:" 

560 GET £1,A 

570 IF AO 155 THEN 560: REM ’RETURN’ 

580 CLOSE £1 

585 PRINT " " : p 

PINT "" 

590 GOTO 100 

900 REM END OF CREDITS 

910 PRINT " YOU’RE BROKE NOW" 

920 PRINT " <SPACE> TO TRY AGAIN" 

930 OPEN £1,4,0,"K:" 

940 GET £ 1,A 

950 IF A<>32 THEN 940 

960 CLOSE £1 

970 RUN 

1000 REM DRAW F'LAYF I ELD 
1010 GRAPHICS 3 
1012 SETCOLOR 2,3,4 
1015 COLOR 2:SETCOLOR 1,9,2 
1020 FOR L-0 TO 23:PLOT 0,L 
1030 DRAWTO 39,L:NEXT L 
1040 COLOR 4 

1050 FOR L=10 TO 14:PLOT 10, L 

1060 DRAWTO 29,L:NEXT L 

2000 REM READ IN THE MACHINE CODE 

2005 RESTORE 10000 

2010 FOR 1=12288 TO 12380 

2020 READ D:POKE I,D 

2030 NEXT I 

2099 RETURN 

3000 REM INITIALISE PLAYERS 
3010 PMBASE=40:POKE 54279, F'MBASE 
3015 POKE 559,62:POKE 53277,3 
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3020 P1=F'MBASE*256+ :l. O24 

3030 F'2—P 1 +256:: P3-P2+256 

3040 Cl =704: C2=C1 + 1: C 3 =C2 + 1 

3050 H 1 . -53248:: H2=H .1. +1 : H3=H2+1 

306 0 P 0K E HI, 0: P 0 K E H 2, 0 n P 0 K E H 3, O 

3070 RESTORE 9500 

3080 POKE 623,4: REM PLAYERS AT BACK- 

3100 FOR L..-0 TO 79 

3110 READ D:G(L)=D 

3120 NEXT L 

3125 RESTORE 9000 

3130 FOR L=0 TO 31 

3140 READ P, 0 ,R 

3150 A (L) -P: B (L.) =Q :C(L) =R 

3155 S=L*B 

3160 FOR 1=0 TO 7 

3170 POKE Pl+S+I, G (F’* 8 +I) 

3180 POKE P2+S+I,G( 0 * 8 +I) 

3190 POKE P3+S+I,G(R* 8 +I) 

3200 NEXT I 
3210 NEXT L. 

3499 RETURN 

4000 REM SET HOLD FLAGS 
4005 H(1)=0:H(2)=0:H( 3 )=0 
4007 COLOR 2: PLOT :13„ 8 : DRAWTO 26,8 
4010 OPEN £1,4,0,"K:" 

4020 PRINT " HOLD NOW" 

4030 PRINT "" 

4040 GET £ 1 ,K 

4050 IF K=32 THEN PRINT " 

"SPRINT CLOSE £1:RETURN 
4060 IF K>ASC<"R"> THEM CLOSE £1:G0T0 40 
05 

4070 IF K<49 OR l<>51 THEN 4040 

4075 COLOR 3:PLOT 7+6*(K-48),8:PLOT 8 + 6 * 

<K—48), 8 

4080 H(K—48)=1:GOTO 4040 

4100 REM ADVANCE SPINNING REELS 

4110 FOR 0=0 TO 3 

4120 IF H<1)=0 THEN A=USR(12288) 

4130 IF H < 2)=0 THEN A=USR(12319) 
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4140 IF H(3)=0 THEN A=USR(12350) 

4150 NEXT Q 

4160 FOR Q=1 TO 3 


4 170 
4180 
4190 

8999 

9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9 100 
9110 
9120 
9130 
9140 
9150 
9499 


IF' H (Q) < > 1 THEN P (Q) =p <Q) - 1 
IF P(Q>=~1 THEN P(Q)=31 
NEXT QsRETURN 
REM REEL. DATA 


DATA 0 
DATA 2 


, 1,4, 1,3,3 
,5, 1,3,2,4 


DATA 4,4,9,5,6 


DATA 6 
DATA 8 
DATA 8 
DATA 6 
DATA 4 
DATA 2 
DATA 2 
DATA 4 
DATA 6 


,7, 5, 7,3,8 
, 6 ,4,9,3, 3 
, 2, 1,7,4,4 
,7,2,5,9,4 
, 1 , 1,3, 2,8 


,7,4 

,4,2 


2,5,4 

1,7,8 


DATA 8, 1,6,7,7,2 
DATA 6 ,3,7,5,6,S 
DATA 4,2,1,3,4,4 
DATA 2,1,2,1,5,2 
REM SHAPE DATA 


9500 DATA 0,24,36,211,203„36,24,0 
9510 DATA 8,16,86,127,255 , . 1 . 26, 126,60 
9520 DATA 0,255,85,85,85,85,255,0 
9530 DATA 0,63,127,124,248,252,126,63 
9540 DATA 129,66,36,24,24,36,66,129 
9550 DAT A 56,186,146,124,16,40,68,68 
9560 DAT A 0,7,3,5,3,16,32,64 
9570 DATA 24,24,24,255,255,24,24,24 
9580 DAT A 0,66,231,255, 126,60,60,24 
9590 DATA 0,24,36,36,126,66,66,66 

9999 REM MACHINE CODE DATA 

10000 DATA 173,254,44,72,173,255,44,72 
10010 DATA 162,253,189,0,44,157,2,44,202 
,224,255 

10020 DATA 208,245,104,141,1,44 

10030 DATA 104,141,0,44,104,96 

10050 DATA 173,254,45,72,173,255,45,72 
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10060 DAT A 162,253,189,0,45,157,2,45, 202 
,224,255 

10070 DATA 208,245,104,141,1,45 

10080 DATA 104,141,0,45,104,96 

10100 DATA 173,254,46,72,173,255,46,72 

10.110 DATA 162,253,189,0,46,157,2,46 

10120 DATA 202,224,255,208,245,104,141,1 

,46 

10130 DATA 104,141,0,46,104,96 

19999 REM PAIR SCORES 

20000 DATA 1, 1,2,2,3,3,4,4,5,5 

20009 REM TRIPLE SCORES 

20010 DATA 2,3,4,5,6,7,8,9,10,20 




ROBOT ISLAND 



This is going to be a nasty experience for those who don't 
like robots, ghosts, water, or quicksand. 

You are the only survivor of the mad professor's plans to 
turn humans into robots and you are being pursued 
across an island by one of the robots, and a ghost. 

You can kill the robot (if kill is the correct word) by luring 
it into quicksands or by leading it towards the cliffs where 
it may stumbleandfall into the sea. 

You cannot kill the ghost (it stands to reason as it is 
already dead) but you can stop it catching, and killing, 
you by destroying the robot. This will release the ghost's 
spirit. 
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Howto play 

The game will commence with the ghost appearing from 
the left hand side and the robot from the top right. The 
quicksand is to be found in the top left. Remember that 
you can also become a victim of the quicksand so don't 
stray too close to the edge. 

Use keys Z and X for left and right and / and + for up and 
down. 

Your score appears at the game end and you can 
recommence the chase by pressing SPACE. 


Programming Hints 

Changing starting points for each of the 'characters' is 
achieved by altering lines 50,60 and 70. 

You can also change the size of the quicksand area by 
altering the data in Line 1110. 

To slow the game down for younger players, enter a 
delay by inserting Line 105 FOR Z= 1 to 40: NEXTZ 


The Program 


to REM ROBOT ISLAND 
20 GRAPHICS 5+16 
25 POKE 623., 4 
30 GDSUB 1000 
40 G05UB 2000 
45 GOSLJB 3000 
50 X1=120:Y1=75 
60 X2”80s Y2~ 80 
70 X3=140: Y3==50 
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80 POKE 01,13*16+12:POKE 02,4*16+8- POKE 
03, 6* 16-1-10 

90 POKE HI,XI:POKE H2,X2:POKE H3,X3 
95 M=22: R .1. = 1 s R2- 1 
97 SC==0:T=500 

100 K=PEEK (764) : IF 10-22 OR 10-23 OR K- 5 R 
OR K =6 THEM M=K 

1 10 IF M=22 THEN X 1 = X 1 i 2 s POKE 1-11 , X 1 

120 IF M=23 THEN XI.-XI..2: POKE HI., XI 

1 3 0 IF M 3 8 T H E N Y1 - Y1 + 2 : A LJ 8 R < 1228 8 ) 

140 IF 10-6 THEM Y1=Y1.2: A-USR (1 2301 ) 

200 POKE 53278,1 

210 IF PEEK<53260)< >0 OR PEEK(53252)<>0 
THEN 4000 

300 REN MOVE ONE OF THE ROBOTS 

305 POKE 53278,1 

310 IF R1=0 THEN 500 

320 IF R2-0 THEN 400 

330 IF RND (.1 ) <0„ 5 THEN 500 

400 REM MOVE THE GHOST ROBOT 

410 IF X2>X .1. THEN X2-X2-2: POKE H2,X2 

420 IF X2< X 1 THEN X2=X.2+2: POKE H.2,X2 

430 IF Y2>Y1 THE!N Y2--Y.2 2: A=USR < 1 2527) 

440 IF Y2< Y1 THEN Y2~ Y.2 + 2: A =4 JSR; ( 1 23 | 4 ) 

490 GOTO 600 

500 REM SECOND ROBOT 

510 IF X3>X :l. THEM X3-X3.2: POKE FI3, X3 

520 IF X3< X1 THEN X3=X3+2:POKE H3,X3 
530 IF Y3>Y1 THEN Y3-Y3-2:A=U3R(12353> 
540 IF Y3<Y 1 THEN Y3=Y3+2:A=USR(12340) 
600 REM SEE WHAT HAPPENED 

650 IF R2-1 AND PEEK(53254)< >0 THEN GOSU 
B 5500 

6 6 O IF P E E K (53260) < > 0 TI ■ IF N 4 (") O O 

670 IF T>0 THEN T=T~5 

680 SC-SC+1 

690 IF R2~1 THEM 100 

700 REM BOTH ROBOTS ARE DEAD 

710 GOTO 4400 

1000 REM DRAW ISLAND 

1010 COLOR 3s PLOT 5,0 
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1020 DRAWTG 50., 3: DR A WTO 73,12 
1030 DRAWTO 52,19:0RAWT0 76,34 
1040 DRAWTO 36,47:DRAWT0 15,38 
1050 DRAWTG 5,0 
1100 COLOR 2 

1110 PLOT 20, 18: PLOT 21 , 1.8: PLOT 21,17 
1199 RETURN 

2000 REM DEFINE PLAYERS 
2 010 PMBASE =40:POKE 54279,PMBAS E 
2020 POKE 559,62:POKE 53277,3 
2030 H1=53248:H2=H1+1:H3=H2+1 
2040 POKE HI,Os POKE H2,Os POKE H3,0 
2050 C1 =704 : C2~C 1 + 1: C3=C2+1 
2060 P1=PMBASE*256+1024 
2070 P2=P1+256:P3=P2+256 
2080 FOR 1=0 TO 255 

2090 POKE P1 +1,0:POKE P2+1,0:POKE P3+I,0 

2100 NEXT I 

2110 RESTORE 9000 

2120 FOR 1=0 TO 7 

2130 READ A,B,C 

2140 POKE P2+I+80,C:POKE P3+I+50,A 
2150 POKE P1 +1+75, B 
2160 NEXT I 
2199 RETURN 

3000 REM COPY MACHINE CODE DOWN 

3010 RESTORE 8000 

3020 FOR L=12288 TO 12365 

3030 READ D 

3040 POKE L,D 

3050 NEXT L 

3060 RETURN 

4000 REM HERE IF PLAYER LOSES 
4010 FOR L=0 TO 240 STEP 3 
4015 POKE C1,L 

4020 SOUND 0, L, 10, 10:SOUND 1,L+4,1O,10 
4030 SOUND 2,L+8,10,10:SOUND 3,L+12,1O,l 
0 

4040 NEXT L 

4050 FOR L=0 TO 3:SOUND L,0,0,0:NEXT L 
4100 POKE H1,0:POKE H2,0:POKE H3,0 
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41 :l. 0 GRAPH ICS :l. + ;l. 6:: PC)31 7 I ON 0, 10 
4120 Print £6;"caught by thp robots" 

4130 POSITION 0,14 

4140 PRINT £6;" SCORE : ";STRT(SO 

4100 POSITION 0,17 
4 1 3 1 : PRINT £0^ " tspacpt" 

4190 OPEN £1,4,0,"K:" . 

4200 GET £1,A 

42.10 IF A< >ASC (" ") THEM 4200 
4220 CLOSE £1 

4399 RUN 

4400 REM HERE WHEN PLAYER WINS 
4405 POKE H 1,0:: POKE H2,0:P0KE H3,0 
4410 GRAPHICS 1 + 16:POSITI ON 0,10 
4420 PRINT £6;" YOU GOT THE ROBOT" 

4430 GOTO 4130 

5000 REM ROBOT ONE KILLED 

5010 R1 —0 

5020 SC=SC+T 

5030 POKE H2,0 

5040 RETURN 

5090 RETURN 

5500 REM ROBOT TWO KILLED 

5510 R2=0 

5520 SC=SC+T 

5530 POKE H3,0 

5540 RETURN 

7999 REM MOW THE MACHINE CODE 

8000 DATA 162,253,189,0,44,157,2,44,202, 

208.247.104.96 

8010 DATA 162,0,189,2,44,157,0,44,232,20 

8.247.104.96 

8020 DATA 162,253,189,0,45,157,2,45,202, 

208.247.104.96 

8030 DAT A 162,0,189,2,45,157,0,45,232,20 

8.247.104.96 

8032 DATA 162,253,189,O,46,157,2,46,202, 

208.247.104.96 

8050 DATA 162,0,189,2,46,157,0,46,232,20 

8.247.104.96 

8999 REM THE SHAPES FDR THE PLAYERS 
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9000 DATA 0,56,0 

9001 DATA 0,56,0 

9002 DATA 6,56,14 

9003 DATA 15,150,15 

9004 DATA 6,120,29 

9005 DATA 9,16,25 

9006 DATA 0,40,31 

9007 DATA 0,68,62 
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FLAGS OF THE WORLD 



How many times have you heard the muttered comment 
at a football, athletic of international meeting about 
whose flag is whose? 

Your worries are over after you use this program. You 
will be able to attend the United Nations and show off 
your knowledge with a smile and a shrug. 


Howto use 

Your 600 XL will print on your screen, for a few seconds, 
the names of three countries. 

You will then be shown, in full colour of course, a flag 
which will represent one of the countries which has just 
been listed on your screen. 

To make yourchoice of country press 1,2or3. 
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If your answer is incorrect you will be told the correct 
answer. You will be given a score out of ten at the end of 
the game. 


Programming Hints 

If you are a keen programmer and want to experiment 
with the contents of the program then change lines 9000 
onwards to alter the colours, sizes and shapes of the 
flags. 


The Program 


10 REM FLAGS DF THE WORLD 
20 OPEN £1,4,0,"K:" 

30 DIM P(3) 

40 DIM T$(20) 

50 SC=0:J=0 

10 0 J=J +1 : IF J = 1 1 T H E N 8 0 0 
110 GOSUB 4000 
120 GOSUB 5000 

1 3 0 R E S T 0 R E 890< J + G * 10 < J 
140 GOSUB 1000 

150 GET £1,Ds IF D<ASC("1") OR D>ASC("3") 
THEN 150 

2 0 O IF P (D - 4 8 > = G T H E N 4 0 0 
300 REM WRONG ANSWER 

310 GRAPHICS 1+16:POSITION 0,12 
320 PRINT £6;" INCORRECT" 

330 FOR; L=1 TO 200; ME 7 XT |_ 

335 RESTORE 10000 

340 FOR L= 1 TO G:: READ T$: NEXT L 

3 50 P0SIT10N 5,17:PRIN T £6 ; T « 

360 FOR L=1 TO 500:NEXT I 

370 GOTO 100 

400 REM CORRECT ANSWER 

410 GRAPH I CS 1 + 16: POS ITI ON 0, .1.2 

420 PRINT £6; 11 CORRECT" 
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430 FOR L~1 TO 500:NEXT L 
440 SC=SC+1 
450 GOTO 100 

000 REM TEN QUESTIONS ANSWERED 
810 GRAPHICS 1+16 

B20 P0SI 7' 10N 0, 8: PRINT £6; " END OF QUI Z 


030 POSITION 0„14:PRINT £6?" YOU SCORFD 
: " 5 SC 

040 POSITION 0,17:PRINT £63" OUT OF 10 
11 


850 POSITION 0,20:PRINT £65" < SPACE 


860 GET £ 1,A 

070 IF A< >32 THEN 860 

880 RUN 

1000 REM DRAW FLAG 
1010 GRAPHICS 7+16 

1013 FOR L=0 TO 2:READ A,B:SETCOLOR l,A, 
B: NEXT L. 

1020 C=0 

1030 C-0+1:COLOR C:IF C=4 THEN 1999 

1040 READ X:IF X=0 THEN 1030 

1050 READ Y,X1,Y1,CX,CY,N 

1060 FOR L=1 TO N 

1070 PLOT X,Y:DRAWTO X1,Y1 

1080 X = X + C X : Y ~ Y+C Y 

1090 X 1 ”X .1 + CX:YL= Y1 + CY 

1100 NEXT L. 

1110 GOTO 1040 
1999 SETCOLOR 4,0,2:RETURN 

4000 REM CHOOSE A FLAG 

4001 REM AND THE TWO INCORRECT ONES 
4010 G“ : I NT (RND (1 ) *0 +1 ) 

4020 W1 = I NT (RND (1 ) *8 + 1 ) 

4030 IF W1 =G THEN 40:1.0 
4040 W2=INT(RND(1)*8+1) 

4050 IF W2=W:L OR W2=G THEN 4040 
4099 RETURN 

5000 REM PRINT THE THREE CHOICFS 
5010 GRAPHICS 1+16 
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5020 POSITION 0,4: PRINT £6;" the c:ho:i. 
C85 are:" 

5030 POSITION 0,10:PR INT £6;" | ) 

5040 POSITION 0,13:PRINT £65" 2) "; 

5050 POSITION 0,16:PRINT £6;" 3) 

5060 P(1)=G:P(2)=W1:P(3)=W2 

5070 FOR L= 1 T0 10: T = I NT < RND(1)*3 i- I ) 

5080 S=INT(RND(1)*3+1) 

5090 TT=P(T):P(T)=P(S):P(S)=TT 
5100 NEXT I. 

5110 FOR L=1 TO 3 
5120 RESTORE 10000 
5130 FOR 1=1 TO P(L) 

5140 READ Tit: NEXT I 
5150 POSITION 4,7+L*3 
5160 PRINT £6;T$ 

5170 NEXT L 

5180 FOR L=1 TO 700: NEXT L. 

5199 RETURN 

9000 DATA 8,2,13,10,0,0 
9 0.1.0 DATA 1,1,1,38,1,0,5 0 
9020 DATA 1,58,1,95,1,0,50 
9030 DATA 70,1,70,38,1,0,90 
9040 DAT A 70,58,70,95, 1,0,90 
9050 DATA 0,1,39,1,57,1,0,159 
9060 DATA 51,1,51,95,1,0,19 

9099 DATA 0,0 

9100 DATA 11,2,0,14,3,4 

9110 DATA 1,1,1,95,1,0,52 
9120 DATA 0,52,1,52,95,1,0,52 
9130 DATA O,103,1,103,95,1,0,52 

9199 DATA 0 

9200 DATA 5,2,0,14,3,4 
9210 DATA 1,1,1,95,1,0,52 
9220 DAT A 0,52,1,52,95,1,0,52 
9230 DATA 0,103,1,103,95,1,0,52 

9299 DATA 0 

9300 DAT A 0,0,13,10,3,2 
9310 DATA 1,1,1,95,1,0,52 
9320 DAT A 0,52, 1,52,95, 1,0,52 
9330 DAT A 0,103,1,103,95,1,0,52 
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939? DATA 0 

9400 DATA 8,2,0,14,0,0 
9410 DATA 1,1,1,20,1,0,25 
9420 DATA 1,30,1,46,1,0,25 
9422 DATA 40,1,40,20,1,0,25 
9424 DATA 40,30,40,46,1,0,25 
9426 DATA 65,1,159,1,0,1,10 
9428 DATA 65,38,159,38,0,1,9 
9430 DATA 65,21,159,21,0,1,9 
9432 DATA 1,58,159,58,0,1,14 
9434 DATA 1,82,159,82,0,1,12 
9440 DATA 0,65,11, 159, 11,0, 1, 10 
9450 DATA 65,30,159,30,0,1,?' 

9460 DATA 1,47,159,47,0,1,12 
9465 DATA 1,70,159,70,0,1,12 
9470 DATA 26,1,26,47, 1,0, 14 
9480 DATA 1,21,64,21,0,1,9 

9499 DATA 0,0 

9500 DATA 3,2,0,14,8,2 

9510 DATA 1,1,159,1,0,1,32 
9520 DATA 0,1,32,159,32,0,1,32 
9530 DAT A 0,1,63, 159,63,0, 1,32 

9599 DATA 0. 

9600 DATA 3,2,0,14,3,2 
9610 DATA 1,1,159,1,0,1,32 
9620 DATA 0,1,32,159,32,0,1,32 
9630 DATA 0,1,63,159,63,0,1,32 

9699 DATA 0 

9700 DATA 0,0,3,2,2,6 
9710 DATA 1,1,159,1,0,1,32 
9720 DATA 0,1,32,159,32,0,1,32 
9730 DATA 0,1,63,159,63,0,1,32 
9799 DATA 0 

10000 DATA SWEDEN, ITALY, FRANCE! 

10010 DATA BELGIUM,GREECE,NETHERLANDS 
10020 DATA AUSTRIA,GERMANY 



CRUISE ATTACK 



You are in charge of a missile launcher which is seeking 
to destroy a series of stationary targets on the other side 
of a range of hills. 


Howto play 

You must work out the trajectory and speed of your 
proposed launch and fire using the RETURN key. 

The 600 XL will, automatically, calculate the gravity 
involved in letting the missile fall. 

After each shot the target will be moved and the hills will 
assume a different shape which is randomly generated 
by your computer. You will have to recalculate your 
approach after each shot. 

You have five missiles and each hit is worth ten points. 
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Programming Hints 

To change the gravity of the atmosphere, and therefore 
increase or decrease the rate of fall, alter LINE 60. 


The program 


10 REM CRUISE ATTACK 
20 T=5 

30 OREM £1,4,0,"K:" 

50 DEG 
60 G=9.81 
70 SC-0 

100 GOSUB 1000 

110 GOSUB 2000 

150 GOSUB 3000 

200 REM MOVE MISSILE 

210 X =V*C05 (TH) : Y=V*S IN (TI I) 

220 A-10:B=10 
230 C=A+X/30sD=B+Y/30 
240 Y-Y--G/30; X-X-0.02 
245 Z=0 

250 IF 0159 THEM 700 

260 IF B>79 THEN 305 

270 IF D< =0 THEN 500 

300 COLOR 4:: PLOT A,79~B 

305 IF D>79 THEN 320 

307 LOCATE C,79-D,Z 

310 COLOR 1;PLOT C,79-D 

320 A==C: B=D 

400 IF Z=0 THEM 230 

500 REM DECIDE WHAT HAPPENED 

510 IF Z-0 THEN 700 

520 COLOR 1: PLOT C--3, SO--D: DR'AWTO C,79~D 

530 DRAWTO C.2,77-D:PLOT C,79-D 

540 DRAWTO C-l,82-D 
550 ON Z-l GOTO 600,700 
600 REM HIT THE TARGET 
610 PRINT CHR4(125)5" 

HIT ! ! ! 
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620 FOR L=i TO 200: SOUND 0, L, 8, L/14: NEXT 
L 

630 SC=SC+10 

640 PRINT " SCORE ";SC 

650 SOUND 0,0,0,0 
660 GOTO 790 

700 REM MISSED THE TARGET 

710 PRINT CHR$(125);" MISSE 

D 

730 FOR L=0 TO 250;SOUND 0,L,10,14 

740 SOLJND .1, L.-i 7, 10, 14: NEXT L 

750 SOUND 0,0,0,0:SOUND 1,0,0,0 

790 T=T— 1; IF TOO THEN 100 

800 GRAPHICS 1+16:POSITION 0,8:PRINT £6; 

"FIVE MI GILES FIRED" 

810 POSITION 0,12: PR I NT £6;" Pn d o-f tu 
rn" 

820 POSITION 0,15:PRINT £6;" score ;";SC 
830 POSITION 0,19:PRINT £6;" 2 SPAC 

E >" 

840 GET £ 1 , D: IF' DO-32 THEN 840 
850 CLOSE £1 
860 RUN 

lOOO REM DRAW A HILL 
1010 GRAPHICS 7 
1015 Y=79 

1020 COLOR 3:PLOT 19,79 
1030 FOR X=21 TO 93 STEP 3 
1040 DRAWTO X,Y 

1050 IF X< 50 THEN Y=Y-~INT(RND(1)* 14) 

1060 IF X>55 THEN Y=~Y+1 NT (RND (1 ) * 1 1) 

1070 IF Y >79 THEM Y=79--1 NT (RND (1)m l Q) 

1080 IF Y<1O THEN Y=10+INT(RND(1)*5) 

1090 NEXT X 
1095 DRAWTO 95,79 
1199 RETURN 

2000 REM DRAW GUN AMD TARGET 

2010 COLOR 2:PLOT 0,79:DRAWTO 0,76;DRAWT 

0 4,76:DRAWTO 4,79 

2020 DRAWTO 0,79:DRAWTO 0,77:DRAWTO 4,77 
:DRAWTO 7,74:DRAWTO 7,73 






Ill 


2030 DRAWTO 4,76 
2100 X = I NT(RND(1)*50+100) 

2110 PLOT X,79:DRAWTO X +8,75 
2120 PLOT X-i-S, 79: DRAWTO X,75 
2130 PLOT X, 79: DRAWTO X+8,79 
2199 RETURN 

3000 REM GET ANGLE / VELOCITY 
30.10 PR I NT CHR* (125):" ANGLE " ; 

3020 INPUT TH;IF TH<1 OR TH>89 THEN 3010 
3030 PRINT CI-IRT. (125) ; "MUZZLE VELOCITY (1 
-50) 

3040 INPUT V:IF V<1 OR V>50 THEN 3030 
3050 POKE 752,1:PRINT :REM CURSOR OFF 
3099 RETURN 
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BAT 'N' BALL 



This game is for two players each of whom has to guard 
a goal from their opponent. 

Each player has five balls to play and score with but you 
can, of course, score a goal with your opponent's ball. 


Howto play 

Each player has two keys to move their bat up and down 
as follows 


PlayerOne AandZforUpand Down 
PlayerTwo + and/for Up and Down 
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Programming Hints 

To make the game more difficult you can reduce the size 
of the bats by altering the number in Line 60. 

By the way, you cannot cheat by altering the size of one of 
the bats to your advantage. Sorry. 


The Program 


10 REM BAT 'N’ BALL 

30 POKE 752,1:REM DISABLE CURSOR 

40 P1=0:P2=0:REM INITIALISE SCORES 

50 G= 10: REM NUMBER OF GAMES LEFT- 

60 H=4:REM LENGTH OF BAT 

70 Z=19-H:REM MAX Y POS. FOR BATS 

80 0=5:REM MIN Y POS. FOR BATS 

90 SETCOLOR 2,7,10 

100 REM GAME LOOP 

110 GOSUB 1000 

120 A=10:B=10:REM INITIAL POS 
122 COLOR 2 

124 PLOT 0,A:DRAWTO 0,A+H-1 

126 PLOT 39,B:DRAWTO 39,B+H-l 

130 C=0:D=0:REM MO 

135 IF G=0 THEN 7000 

140 IF G>5 THEN GOSUB 1500:GOTO 200 

150 GOSUB 1600 

200 REM PLAY LOOP 

210 K=PEEK(764) 

220 IF !<=63 OR K=23 THEN C=K 

230 IF K=38 OR K=6 THEN D=K 

240 IF C = 63 AMD A>Q THEN GOSUB 3000 

250 IF C==23 AMD A< Z THEN GOSUB 3100 

260 IF D=6 AMD B>Q THEN GOSUB 3500 

270 IF D=38 AMD B<Z THEM GOSUB 3600 

300 S==X + I : T=Y+J 

305 IF S=.1 OR S=40 THEN 700 

310 LOCATE S,T,U 
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320 

IF U = 2 

THEN 

1=.I:GOTO 300 

330 

IF l.J= 1. 

AND T 

=0 THEN J = -J: GOTO 300 

340 

IF U=1 

AND T 

“23 THEN J=--Jf: GOTO 300 

350 

IF U= 1. 

THEM 

I--I:GOTO 300 

400 

COLOR 

4:PLOT 

X, Y 

410 

COLOR 

3:PLOT 

S, T 

420 

X=S:Y= 

T 

690 

GOTO 2 

00:REM 

REPEAT MOVEMENT 

700 

REM BALL OUT 

OF PLAY 


703 IF S=.I THEM P2-R2+1 

706 IF S=40 THEN F : ' 1=P1 + 1 

710 FOR L. = 0 TO 100 STEP 2 

720 SOUND 0,L,10,14:SOUND 1,L+6,1O,14 

730 SOUND 2,L+12,10,14:SOUND 3,L +18,10,1 

4 

740 NEXT L. 

750 FOR L=0 TO 3:SOUND L,0,0,0:NEXT L 

760 G ~G-1:REM REDUCE N0. OF GAMES LEFT 

770 GOTO 100 

1000 REM DRAW COURT 

1005 GRAPHICS 3+16 

1010 COLOR 1:PLOT 1,5:DRAWTO 1,0 

1020 DRAWTO 38,0:DRAWTO 38,5 

1030 PLOT 1,18:DRAWTO 1,23 

1040 DRAWTO 39,23:DRAWTO 38,18 

1099 RETURN 

.1.500 REM PLAYER ONE SERVES 
1510 X=2:Y=12:1=1:J=1 
1520 RETURN 

1600 REM PLAYER TWO SERVES 
1610 X=37:Y=12:1=-1:J=1 
1620 RETURN 

3000 REM PLAYER ONE UP 
3010 COLOR 2:A=A—1:PLOT O,A 
3020 COLOR 4;PLOT 0,A+H:RETURN 
3100 REM PLAYER ONE DOWN 
3110 COLOR 2:PLOT 0,A+H:A=A+1 
3120 COLOR 4:PLOT 0,A-1:RETURN 
3500 REM PLAYER TWO UP 
3510 COLOR 2: E<=E<— 1: PLOT 39, B 
3520 COLOR 4:PLOT 39,B+H:RETURN 
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3600 REM PLAYER TWO DOWN 
361.0 COLOR 2: PLOT 39, B+H: B=B+1 
3620 COLOR 4 : PLOT 39, B--1: RETURN 
7000 REM TEN BALLS USED UP 
7010 GRAPHICS 1+16:POSITION 0,8 

7u2u PRINT £6 5" - match over .—" 

7030 POSITION 0,11 

7040 PRINT £6;"PLAYER PLAYER" 

7050 POSITION 0,13 

7060 PRINT £65" ONE TWO" 

7070 POSITION 3,17:PRINT £6;STR$(PI) 

7080 POSITI ON 13,17:PRINT £6 5 STR$(P2 > 
7100 OPEN £1,4,0,"K:" 

7110 GET £ .1, A 

7120 IF AOASCC ") THEN 7110 
7130 CLOSE £1 
7140 RUN 




116 

EGG CATCHER 



Here is a chance to see if you would be of any use on a 
battery chicken farm. 

We are going to drop an endless stream of eggs from the 
top of the screen, at random, and you are going to have to 
run left and rightto catch them. 

When you have caught one you run to the left, drop it into 
a shute and it shoots back to the top, earning you points. 

By the way, you can only have one egg in the basket at 
one time; you know that it's not safe to have all your eggs 
in one basket! Sorry about that one. 


Howto play 

Using keys Z and X you move the basket left and right. 
Press SPACE to stop beneath the falling egg. 
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You don't need to press any keys when you reach the 
shute on the left, your 600 XL will pick up the eggs for 
you. 

Drop five eggs and the game is over. By that time anyway 
you will be standing in a large omelette. 


The Program 


10 REM EGG CATCHER 
20 DIM S*(5) 

30 S<t=" \_/ " 

50 GRAPHICS 0:POKE 752,1:PRINT 

55 FDR L=0 TO IS:POSITION 1,L:PRINT £6;" 

i !"?:NEXT L 

60 SETCOLOR 2,4,0:SETCOLOR 1,0,10 
70 B=5:POSITION B,20:PRINT £6;S$3 
80 X=0:F=0 
90 M=0:SC=0 

100 POSITION B,20:PRINT £63S$3 
102 IF M-5 THEM 800 

105 IF PEEK(764)=23 AND B>0 THEM B=B~1 

110 IF PEEK(764)=22 AND B<36 THEN B=B+1 

200 IF XOO THEN 210 

203 IF F;ND (1) <0.98 THEN 300 

206 X=5+INT(RND(1)*30):Y=0 

210 LOCATE X,Y+l,H:IF H<>92 AND H<>47 AM 
D H<>95 THEN 215 

211 F=l:Sit=" =0= " : SC=SC+10 

213 POSITION X,Y:PRINT £63" "3:X=0:G0T0 
300 

215 POSITION X,Y:PRINT £63" "3 
220 Y=Y+1:POSITION X,Y:PRINT £65"0"3 
230 IF Y=22 THEN POSITION X,Y:PRINT £6 5" 
":X=0:M=M+1 

300 IF BOO OR F< >1 THEN 100 
310 S$=" \_/ " 

320 F=0:POSITION 0,20:PRI NT £6 5S<t 
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330 FOR L=1B TO 0 STEP -1 
340 SC=SC+1:SOUND 0,L*20,10,14 
350 POSITION 2,L:PRINT £ 6 ;" 0 " 

355 POSITION 2,L+ 1 :PRINT £ 6 ;" "5 

357 POSITION 15,23:PRINT £ 6 ;"SCORE : ";S 

C; 

360 NEXT L 

370 POSITION 2,0:PRINT £ 6 ;" "5 
380 SOUND 0,0,0,0 
400 GOTO 100 

800 REM FIVE ESCAPED THE CATCHER 
805 GRAPHICS 1+16 

81u POSITION 0i,8:PRINT £ 6 j "you clrappe?d f 
i ve " 

820 POSITION 0,15:PRINT £ 6 !" SCORE : " 

;sc 

8-->0 POS ITI ON 0 ,20: PR I NT £6 5 " < r et ur n 

11 

840 OPEN £1,4,0,"K: " 

850 GET £ 1 , D: IF DO 155 THEN 850 
860 CLOSE £1 
870 RUN 



BLACK HOLES 



Coming at you this time, intent on a collision course, are 
two suicidal aliens. 

You will have very little time to spot them and react as 
they have the advantage of vanishing into a 'black hole'. 
While they are inside the void they will still be able to 
alter course and will therefore shoot out towards you 
from angles which you may not have had time to cover. 

You will need all your wits and powers of concentration 
to estimate their eventual flight path. 


Howto play 

Use keys Z and X to move left and right and SPACE to fire. 

Remember that anticipation is the name ofthe game and 
try not to 'bite the dust'. 
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The Program 


10 REM BLACK HOLES 

11 REM WITH M/CODE MOVEMENT 

12 DIM M$(20) 

15 GOSUB 1500 

17 5C=0:LV=0 

18 POKE 623,4 

20 GRAPHICS 5:POKE 752,1:PRINT 
30 GOSUB 1000 
40 GOSUB 2000 

50 X = 120: POKE H3, X : POKE C3,200 

60 A=INT(RND(1)* 110+55> : B= INT(RND( 1 )*• 1 J O 

+55) 

70 P=50:0=50 

80 POKE Cl,40:POKE C2,74:POKE HI,A:POKE 
H2, B 

90 M=0:HI=0 
95 GOSUB 5000 

100 Z~USR(12288):Z=USR(12311):Z=USR(1228 
8):Z=USR(12311) 

102 POKE 53278,1 
105 IF HI=2 THEN 700 
110 F'=F'+2: 0=0+4- 
115 IF A=0 THEN 125 
117 A=A+1 NT(RND(1)*5—2) 

120 IF P>100 THEN A=A+3*SGN(X-A):POKE HI 

,A 

122 IF P>240 THEN A=INT(RND(1)*1 1 0+55) : P 
=P~256:POKE HI,A 
125 IF B--0 THEM 200 
127 B=B+INT(RND(1)*5-2) 

130 IF Q>100 THEN E<=B+3*SGN ( X--EO : POKE 7 H 

,B 

132 IF 0>240 THEN B=I NT(RND(1)*110+55) : 0 

=0-256:POKE H2,B 

200 IF PEEK (53262)00 THEM 800 

205 IF PEEK (764) =23 AND X>45 THFN X = X--2: 

POKE H3,X 

210 IF PEEK(764)=22 AND X<200 THEM X=X+9 
:POKE H3,X 
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220 IF PEEK (764) =33 AND M=0 THEM POKE 114 
, X : GOSLJB 2500: M= 190 
300 IF M=0 THEM 400 
305 POKE 53278,1 

310 M=M—5:IF M<35 THEN M=0sPOKE 764,0 
320 Z=USR(12342):POKE C4,INT(RMD(1)*256) 
330 IF PEEK(53263)=0 THEN 400 
335 GOSUB 6000 

340 IF PEEK (53263) =1 THEN HI = HI+ 1: SO-SC+ 
10:A=0:POKE H1,A:M=0:POKE H4, M:POKE 764, 
0:GOTO 390 

350 IF PEEK(53263)=2 THEM HI=HI+1:SC=SC+ 
20:B=0:POKE H2,B:M=0:POKE H4,N:POKE 764, 
Os GOTO 390 

360 HI=2:SC=SC+40:A=0: B=0:POKE H1,A sPOKF 
H2, B s M--0: POKE H4, M: POKE 764,0 
390 PRINT " SCORE : ";SC 

400 GOTO 100 

700 GRAPHICS 1 + 16:POKE H1,0:POKE H2,O■po 
KE H3,0:POKE H4,0 
705 POSITION 0,10 

710 M*="SO...YOU SURVIVED...GOSUB 4000 
720 FOR L=1 TO 400:NEXT L 
725 POSITION 0,15 

730 M*=" TRY THIS FOR SIZE...":GOSUB 40 
00 

740 FOR L=1 TO 400:NEXT L 

750 LV~LV+1 

760 GOTO 20 

800 REM PLAYER DEAD 

810 GRAPHICS 1+16 

815 POKE H 1,0: POKE H2, Or. POKE H3,0: POKE 1-1 
4,0 

820 POSITION 0,10:PRINT £65"YOU BIT THE 
DUST. . " 

830 POSITION 0,14:PRINT £65" SCORF : 

" 5 SC 

840 POSITION 0,19:PRINT £65" < retur 

n >" 

850 OPEN £1,4,0, "K: " 

860 GET £1,D:IF D< >155 


THEN 860 
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870 CLOSE £1 
880 GOTO 17 

1000 REM SET UP THE PLAYERS 
1010 P0KE 559.62 : P0KE 53277,3 
1020 PMBASE=40:P0KE 54279,PMBASE 
1030 H1 = 5324 8: H2 = H1. + 1 : H3=H2 + 1 : H4=H3 +1 
1040 C 1 ■•"'704: C2=C 1 +1 : C3=C2+1 : C4=C3+1 
1050 POKE I I1,0 x POKE H2,0:: POKE H3, O: POKE 
H4, 0 

1060 P1 Pl v lBASE*256+10.24 s P2=P1 ■+•256: P3=p2 -i- 
256: P 4 ~ P 3 -i- 2 5 6 
1070 Z~USR ( 12357) 

1199 RETURN 

1500 REM READ IN THE MACHINE CODE 

1510 RESTORE 9000 

1520 FOR L =12288 TO 12389 

1530 READ D:POKE L„D 

1540 NEXT L 

1599 RETURN 

2000 REM DRAW PLAYERS AT INITIAL POSM. 
2010 RESTORE 10000 

2020 FOR L=184 TO 191:READ D:POKE P5+L,D 
:NEXT L 

2030 FOR L---50 TO 57: READ D 
2040 POKE Pl+L,D:POKE P2+L,D 
2050 NEXT L 
2199 RETURN 

2500 Z=USR(12378):FOR L=176 TO 183:POKE 
P4+L,24:NEXT L:RETURN 
4000 FOR L=1 TO L.EN (M$) 

4010 PRINT £ 6 ;M*(.L,L )5 
4020 FOR W=1 TO 30:NEXT W 
4030 NEXT L 
4040 RETURN 

5000 REM DRAW PLAYFIELD 
5010 DP=LV*3 

5020 IF DP>25 THEN DF' = 25 

5030 COLOR 1:SETCOLOR 0, I NT(RND(1)*15+1) 

,INT(RND(1)*10+5) 

5040 FOR L =6 TO DP+12 
5050 PLOT 0, L: DR A WTO 79,1. 
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5060 NEXT L 

5080 COLOR 4 

5100 FOR L~1 TO 20 

5110 PLOT INT(RND( 1 ) *80 >,INT(RND( 1 )*(DP+ 
6 ) + 6 ) 


5120 NEXT L. 
5899 RETURN 


6000 FOR EX=0 TO 200 STEP 4:SOUND 0,FX,4 
,14:NE X T EX:SOUND 0,0,0,0:RETURN 


9000 DATA 17 


55,44,72,162,254,189,0,44 


,157,1,44 
9010 DATA 
9100 DATA 
2,253,189 
9110 DATA 


202,224,255,208,245 
104,141,0,44,104,96 
173, 254,45,72,173,255,45,72,16 
O,45,157,2,45,202,224,255 
208,245,104,141,1,45,104,141,0 


, 45, 104,96 


9300 DATA 162,0,189,6,47,157,0,47 

9310 DATA 232,224,248,208,245,104,96 

9400 DAT A 162,0,169,0,157,0,44,157,0,45, 

157,0,46,157,0,47 

9410 DATA 232,208,241,104,96 

9500 DAT A 162,0,169,0, 157,0,47,232 

9510 DATA 208,250,104,96 

10000 DATA 0,0,24,24,24,60,126,255 

10020 DATA 195,102,102,126,231,60,24,24 




METEROID STORM 



Your force field defences have disintegrated; your lasers 
have overheated and you are now approaching a 
meteroid belt. 

We don't hold out much hope for your survival as it's 
only a matter of time, and manual dexterity, as to how 
long you can keep going. 

Your cruiser is moving down the screen and a 
continuous wave of rocks and star particles are rising to 
meet you so good luck. 


Howto play 

As you have no defence systems left you must try to stay 
alive by moving left anf right using keys Z and X and 
pausing, if you dare, by using SPACE. 
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To help you live a little longer we have given you three 
lives. You'll need them. 


Programming Hints 

To slow up the meteroids you can insert a delay as 
follows: 


Line 102 FORZ= 1 to30: NEXTZ 


The Program 

10 REM METEROID STORM 

20 GRAPHICS 0sPOKE 752, Is PRINT 

30 SETCOLOR 2,0,0 

40 LI=3 s SC=0 

100 GOSUB 1000 

TO5 SC=SC+2 

110 LOCATE X + l , 0., As LOCATE X+2,0,BsLOCATE 
X+3,0,C 

120 IF A+B+C=96 THEM 190 
130 LI ==L I — I s GOSLJB 2000 
140 GRAPHICS 0 s POKE 752,1s PRINT 
150 IF LI< >0 THEN SETCOLOR 2,0,0s GOTO 10 
0 

160 GOTO 400 

190 POSITION X,Os PRINT " < = > "S 
200 IF PEEK(764)-23 AND X>0 THEN X=X-1 
210 IF PEEK(764)=22 AND X<35 THEN X=X+1 
300 GOTO 100 
400 REM OUT OF SHIPS 
410 GRAPHICS 0 s POKE 752,1s PRINT 
420 POSITION 0,10s PRINT " YOU HAVE DESTR 
OYED THREE" 

425 GOSUB 3000 

430 POSITION 0,13s PRINT ".. 

NSIVE. 


VERY EXPE 
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435 GOSUB 3000 

440 PDSITION 0,16:PR INT "-GALACTIC CR 

UISERS." 

450 GOSUB 3000 

460 POSITION 0,20:PRINT "YOU SCORED s " 
S SC 

470 POKE 764,0 
4BO END 

1000 REM METEORITE / AND UP 
1U10 POSITI ON INT(RND(1)*40),23:PRINT "* 

II 

1099 RETURN 

2000 REM SHOW HOW MANY LIVES LEFT 
2002 GOSUB 4000 

2005 GRAPHICS 0:POKE 752,1:PRINT 
2007 POS I TI ON 10,5s PR I NT " YOU ’ RE RUNNI IMG 
OUT OF SHIPS" 

2010 IF LI-'-O THEN 2099 
2020 POSITION 12,12 
2030 FOR L=1 TO LI 
2040 PRINT " <>> "s 
2050 NEXT L 
2060 SOUND 0,0,0,0 
2070 GOSUB 3000 
2099 RETURN 

3000 FOR W=1 TO 500:NEXT W 
3010 RETURN 

4000 REM EXPLOSIONS CAN BE MADF LIKE THI 
S 

4010 FOR L=0 TO 255 STEP 3 
4020 SOUND 0,L,B,16-L/16 
4030 NEXT L 
4099 RETURN 
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ROADRUNNER 



You have been hurtling down country lanes in your new 
sports car, trying to impress your lady friend by your 
side, only to find that your brakes have gone and there is 
a steep incline before you. 

Try to stay on the road—you know it makes sense. 


Howto play 

Steer the car using Z and X for left and right and use the 
SPACE bar to correct the rear end drift as you go through 
the bends. When you finally run out of road you will see a 
score on the screen. 
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The program 


10 REM ROAD RUMMER 
20 GOSUB 1000 
30 GRAPHICS 0 

40 POKE 752, 1 : PRINT : REM TURN OFF TI-IF CLJ 

RSOR 

50 R=20 

60 SETCOLOR 2,0,0 

70 FOR L=0 TO R-l:POSITION L,23:PRINT " + 
" 5 : NEXT L 

SO FOR L=R+7 TO 39:POSITION L,23:PRINT " 

+ " 5:NEXT L 

90 B= 15 

95 SC=0 

100 GOSUB 2000 

102 SC=SC+1 

105 POSITION 6,0:PRINT " ] = E" 

110 IF PEEK(764)=23 AND B>0 THEN B=B-1 
120 IF PEEK(764)=22 AND B<37 THEM B=B+1 
130 LOCATE B,1,E:LOCATE B+1,1,F;LOCATE B 
+2,1,G 

140 IF E+F+G=96 THEN 100 

150 REM CRASHED INTO THE BARRIERS 

160 FOR L=0 TO 255 STEP 3 

170 SOUND 0,L„12,L/16 

180 NEXT L 

190 GRAPHICS 1+16 

POSITION 0,8: PRINT £6 5" you crashed" 
2 10 POSITI ON 0, .10: PR I NT £6 5 " ANOTHFr" WRFC 
KED CAR" 

220 POSITION 0,15:PRINT £6;"YOU SCORED • 

" 5 SC 

230 OPEN £1,4,0, "l<: " 

240 GET £1,D 

250 IF DO 155 THEM 240 

260 CLOSE £1 

270 RUM 

1000 REM INSTRUCTIONS 
1010 GRAPHICS 1+16 
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1020 POSITION 0,5: PRINT £6;;"_road 

ner„..." 

1030 POSITION 0,12:PR I NT £6 5 "< SPACE 
STRAIGHT" 

1040 POSITI ON 0,14: PR I NT £6 5 " ■’ Z 7 

LEFT" 

1050 POSITION 0,16: PRINT £6!" 7 X 7 

RIGHT" 

1060 POSITION 0,20:PRINT £65 "<RETURN> 
START" 

1070 OPEN £1,4,0,"K:" 

1080 GET £.1 ? D: IF DO 155 THEN 1080 
1090 CLOSE £1 
109? RETURN 

2000 REM DRAW ROAD AND MOVE IT 
2010 POSITION R,23:PRINT "+ +" 

2020 IF RND(1)>0.7 AND R>0 THEN R=R-1 
2030 IF RND(1)>0.7 AND R<33 THEN R=R+ 
2099 RETURN 


run 


TO 



WALL BREAKER 



This is our version of the popular arcade game of the 
same name. Along the top of the screen you will see 
three rows of coloured 'bricks' and you must use the 
bouncing ball to demolish the wall in as few moves as 
possible. 

A little hint. If you break through the first two rows and 
get to the back wall the ball will stay bouncing, and 
demolishing, from behind until it breaks out again. 


Howto play 

Use keys Z and X to move the bat across the screen. 


Programming Hints 

If you are finding the game too easy, or too difficult, you 
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can change the size of the bat by altering Line 80. 
Increase, or reduce the number after BL=. If you want to 
sit back and let the ball bounce on it's own then simply 
increase the bat size until it fills the bottom of the screen. 


The Program 


10 REM WALL BREAKER 
20 GRAPHICS 7•+■ 16 
25 MX = 159: MY=95 
30 GOSUB 1000 
40 X="10: Y : =60 
50 CX=2:CY==-1 
60 SC=0:W-0 
70 BX==10:BY=90 
80 BL-19 

90 COLOR 3:PLOT BX,BY:DRAWTO BX+BL,BY 
10 0 T X = X + C X: T Y=Y+C Y 

105 IF SO 1950 THEN W=W+1: SOO; GOSUB 100 
0 

110 LOCATE TX,TY,D 

120 IF TX<2 OR TX >MX —2 THEN GOSUB 500:GO 
TO 100 

130 IF TY<1 THEN GOSUB 550:GOTO 100 

140 IF DC >0 THEN GOSUB 600:GOTO 100 

150 IF TY>93 THEN GOTO 800 

200 COLOR 4:PLOT X,Y 

210 COLOR 3:PLOT TX,TY 

220 X=TX:Y==TY 

300 K~PEEK(764) 

310 IF 1022 AND BX+BLCMX - 3 THEN GOSUB 70 

Q 

320 IF K=23 AND BX>3 THEN GOSUB 750 

330 GOTO 100 

500 REM HIT SIDE WALL 

510 SOUND 1,81,10, 12: CX— CX 

520 SOUND 1,0,0,0:RETURN 

550 REM HIT TOP WALL OR BAT 

560 S 0UND 1,126,10,12:CY=-C Y 
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570 SOUND 1,0,0,0:RETURN 
600 REM HIT BAT OR BRICK 
610 IF D=3 THEN 650 

620 SOUND 1,63,10,15;COLOR 4;SOUND 1,0,O 
,0;Z=2*INT(TX/2) 

630 PLOT Z., T Y: P L. 0 T Z +1 , T Y: S C = S C+D * 10 
640 C Y=- C Y: R E TIJ R N 
650 REM HIT THE BAT 

660 SOUND 1 ,, 40,, 10,14: CY---CY: SOUND 1,0, O, 
0 

670 SETCOLOR 2, I NT(RND( 1 ) * 16) , 15:RETURN 
700 REM BAT RIGHT 

710 COLOR 4:PLOT BX,BY:PLOT BX + 1,BY 

720 BX=BX+2:COLOR 3:PLOT BX+BL.1,BY:PLOT 

BX+BL,BY:RETURN 
750 REM BAT LEFT 

760 COLOR 4:PLOT BX+BL,BY:PLOT BX+BL-1,B 
Y 

770 BX=BX-2:COLOR 3:PLOT BX,BY:PLOT BX+1 
,BY:RETURN 

BOO REM THE BALL IS OUT OF PLAY 
BO2 FOR L=0 TO 240 STEP 3 
B04 SOUND 0, L, 10, 10:SOUND 1,L, 10, 10 
806 SOUND 2,L+B,10,6:SOUND 3,L+15, 10, B 

808 NEXT L 

809 FOR L=0 TO 3:SOUND L,0,0,0:NEXT L 

810 GRAPHICS 1+16:POSITION 0,10:PRINT £6 
;"######*#######*#####«■ 

82.0 PRINT £6;" SCORE : " ; STR$ (SC+W* 

2000) 

830 PRINT £6; "**••********»*#*#***■*■*" 

840 POSITION 0,19:PRINT £6;" <spac 

e>" 

850 OPEN £1,4,0,"K:" 

855 IF PEEK(764)=33 THEM GET £1,A 
860 GET £ 1,A 

865 SOUND 1,63,10,15:SOUND 1,0,O,0 

870 IF A<>32 THEN 860 

880 CLOSE £1:GOTO 10 

1000 REM DRAW WALLS AND BRICKS 
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1 010 SETCOLOR 2,2,10:SETCQLOR 0,7,4 
1020 SETCOLOR 1,6,8:COLOR 3 
1 030 PLOT 0„0:DRAWTO MX , 0 
1040 PLOT 0,0:DRAWTO 0,MY 
1050 PLOT 1,0:DRAWTO 1, MY 
1060 PLOT MX,0:DRAWTO MX, MY 

1070 PLOT MX.1,0:DRAWTO MX-1,MY 

1100 FOR L=2 TO MX-5 STEP 4 

1110 COLOR 1:PLOT L,20:PLOT L+1,20 

1120 COLOR 2:PLOT L,12:PLOT L+1,12 

1130 PLOT L,28:PLOT L+1,28 

1140 NEXT L 

1199 RETURN 




Here comes the old command from the boys at the War 
Department. 

Your enemy is out of sight on the other side of the 
horizon and hasn't even been warned that you are about 
to attack so you have the element of surprise on your 
side. 

Your enemy has a full fleet on the high seas intent on 
attacking your bases so 'get your retaliation in first'. 

Besides, it's only a game. Isn't it? 


Howto play 

Your enemy's fleet consists of One Flag Ship — 240 
points; One Cruiser — 160 points; One Frigate — 100 
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points but you only have a limited number of shots left in 
your locker so make them count. 

Use the keys Z and X to move the base control left and 
right and the / and + keys to move the upper gun control 
down and up. 

When you feel that you have located your target press 
the SPACE bar to fire at the co-ordinated target. 


Programming Hints 

To make the game more limited, and therefore more 
demanding, you can reduce the fire power of your fleet 
by changing the number of shots available by altering 
thefigure in Line 40 of the program. 


The Program 

10 REM SEEK AMD DESTROY 
15 DIM A(9.9) 

17 FOR X=0 TO 9 sFOR Y=0 TO 9 

18 A ( X , Y)=0:NEXT Y:NEXT X 
20 GOSUB 1000 

30 SC=0 
40 G ” 4 O 
50 GOSUB 1500 
60 GOSUB 2000 

70 X—5:Y=5:COLOR 2:PLOT X,10:PLOT 10,Y 

100 REM MAIN LOOP 

110 IF SC=500 THEN 800 

115 IF G==0 THEN 700 

120 GET £1,D 

130 IF D~32 THEN 300 

140 IF D=ASC("Z"> AND X >0 THEM COLOR 4:P 
LOT X , 10: COLOR 2: X == X - 1 : PLOT X 10 
150 IF D=A5C <"X") AND X<9 THEN COLOR 4:P 
LOT X , 10: COLOR 2: X -X 1: PLOT X 10 




136 


160 IF D=ASC("/") AND Y<9 THEM COLOR 4:p 

LOT 10, Y:: COLOR 2: Y~ Y+1 ; PLOT 10, Y 

170 IF D“-"ASC ( " i-" ) AMD Y>0 THEN CGI OR 4 •• R 

LOT 10,Y:COLOR 2: Y=Y--1: PLOT 10,Y 

200 GOTO 100 

300 REM FIRE 

305 G=G-i 

310 IF A < X,Y)=0 THEM PRINT "MISS. COL 

OR 4:PLOT X,Y:A(X,Y)= .1:GOTO 100 

320 IF A ( X , Y) =.1 THEN PRINT "O.K. YOU M 

I S5E!D " : GOTO 100 

330 ON A ( X , Y) GOSIJB 4000,4100,4200 

340 C 0 L 0 F’l 1: PI.... 0 T X , Y: F :: ' PINT " * * * * * |-| [ T * #• 

***":A(X,Y)=4:GOTO 100 

700 REM RUN OUT OF SHOTS 

710 PRINT "THEY WERE HIDDEN LIKE THIS" 

720 GOSLJB 3000 

730 GET £1,D:IF D=32 THEN 850 

740 GOTO 730 

800 REM ALL SHIPS SUNK 

810 PRINT "CONGRATULATIONS" 

820 PRINT "ALL SUNK WITH ";G;" SHOTS IFF 
T" 

8 3 O F 0 R W = 1 T0 50O: N E X T W 
850 PRINT " AGAIN (Y/N)" 

860 GET £ 1,D: IF D<>ASC("Y") AND D< >ASC(" 
N") THEM 860 

870 IF D=ASC("Y"> THEN RUN 
880 END 

1000 REM GIVE SCORES 

1010 GRAPHICS 1+16:POSITION 0,3 

1020 PRINT £6?"BATTLESHIP SCORES" 

1030 POSITION 0,7 

1040 PRINT £65" 0 FRIGATE lOO" 

1050 POSITION 0,11 

1060 PRINT £6;"000 CRUISER 160" 

1070 POSITION 0,12 
1080 PRINT £6?" O" 

1090 POSITION 0,14 
1100 PRINT £6;"000" 

1110 POSITION 0,15 
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1.120 PRINT £6; "0 0 FLAG SNTP 240" 

1130 POSITION 0,16 
1140 PRINT £6;"000" 

1150 OPEN £1,4,0,"Ks" 

1160 GET £ 1, D: IF IK >32 THEN 1 16< > 

119? RETURN 

1500 REM DRAW PLAY AREA 

1510 GRAPHICS 3 

1515 POKE 752,1:COLOR 3 

1520 FOR X=0 TO 9 

1530 PLOT X,0 s DRAWTO X,9 

1540 NEXT X 

1599 RETURN 

2000 REM CHOOSE POSITIONS 

2010 A=INT(RND(1)*8):B=INT(RND(l)*0) 

2020 FOR L=0 TO 2:A(A+L,B>=3 

2030 A(A+L,B+2)=3:A(A,B+L)=3 

2040 A(A+2,B+L)-3:NEXT L 

2050 A=I NT(RND(1)*10) :B=INT<RND(1 ) # 10) 

2060 IF A(A,B)< >0 THEN 2050 

2070 A(A,B )=1 

2080 A=INT(RND <1)*8):B=INT(RND(1)*9) 

2090 IF A (A, B) < >0 OR A(A+1,BX>0 OR A (A+ 
2,B)< >0 OR A (A+1,B+1)< >0 THEN 2080 
2100 A (A, B) -2: A (A-H , B) =2; A (A+2, B) =2 
2110 A(A+1,B+1>=2 
2199 RETURN 

3000 REM SHOW WHERE THEY WFRE 

3005 COLOR 1 

3010 FOR X=0 TO 9 

3020 FOR Y=0 TO 9 

3030 IF A(X,Y)>0 THEN PLOT X,Y 

3040 NEXT Y 

3050 NEXT X 

3099 RETURN 

4000 SC--SC+100: RETURN 

4100 SC-SC+40:RETURN 

4200 5C=SC+30!RETURN 
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ROAD BLOCK 



You have arrived at the Berlin Wall with a coach full of 
passengers intent on reaching the other side but the 
guards are putting up blocks as fast as you can 
manoeuvre. 

Make a mistake and hit one of the blocks and it's all over 
for everyone and you are off to the Gulags. 


Howto play 

Entering the screen at top left you will be faced with a fast 
growing spread of road blocks. Make your moves by 
using keys Z and X for left and right and / and + for down 
and up. 
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If you decide to drive off the edge of the screen it will do 
you no good as you will only appear on the other side as 
the screen 'wraps around'. 


Programming Hints 

If you would like to make it easier to play then you can 
alterthe length of the coach by changing the values from 
1 to 20 in Line 30 of the program. 


The Program 


10 

REM ROAD 

BLOCK 

20 

DIM X (20 

),Y(20) 

30 

N=4 


40 

GRAPHICS 

3+16 

50 

FOR L=1 

TO N: X (L) =0: Y (L) 


60 sc=o 

100 REM MAIN LOOP 
105 A—X(1):B=Y(1) 

110 K-PEEK(764):IF K=23 OR K=22 OR K=6 0 
R K=38 THEN M=K:SC=SC+10 

120 IF M=23 THEN A=A-1:IF A=-l THEN A=39 

130 IF M=22 THEN A=A+i:IF A=40 THEN A=0 

140 IF M=38 THEN B=B+1:IF B=24 THEN B=0 

150 IF M=6 THEN B=B-1:IF B=-l THEN B=23 
160 LOCATE A, B, D:IF D<>0 THEN 800 
200 COLOR 1:PLOT A,B 
210 COLOR 2:PLOT X(1) , Y(1) 

220 COLOR 4:PLOT X(N),Y(N) 

230 FOR L=N—1 TO 1 STEP -1 
240 X(L+l)= X(L):Y(L+l)=Y(L) 

250 NEXT L 

260 X(1)=A:Y(1)=B 

270 G=INT(RND(1)*40 > :H=INT(RND(1)*24) 

280 LOCATE G,H,I 

290 IF 1=1 OR 1=2 THEN 270 

300 COLOR 3:PLOT G,H 
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400 b'OTO 100 

800 REM COACH HIT A ROADBLOCK 
810 GRAPHICS 1+16 

820 POSITION 0,10:PRINT £6;"YOU SCORED : 

";sc 

830 POSITION 0,17:PRINT £6;" < SPACE 

11 

840 OPEN £1,4,0,"K:" 

850 GET £1,D 

860 IF D<>32 THEN 850 

870 CLOSE £1 

880 RUN 
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MINELAYER 



It's a darned hard life for the little man who has been 
deserted by his fellow soldiers, in the middle of a mine 
field. See if you can help him reach the dug-out where his 
colleagues are hiding. 

The mines are randomly generated, so be careful of your 
moves. Don't tell the little soldier but we believe, on very 
good authority, that when he reaches the safety of the 
dug-out he is going to be sent out on another mission. 

Every time he makes it through the minefield the number 
of mines increase and he must keep going until. 


Howto play 

Use keys Z and X for left and right and / and + for up and 
down. When the inevitable overcomes your hero you will 
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see a score on the screen and you may press RETURN to 
send the poor little beggar back into the field. 


Programming hints 

If you feel that our hero deserves a break then you can 
reduce the rate at which the mines generate by reducinq 
D1 = 10 in Line 25. 

This will slow down the mines and prolong your time 
response. 


The program 


10 REM MINELAYER 

11 REM WITH M/CDDE MOVEMENT' 

20 GRAPHICS 5+16 

25 DI=10:REM DIFFICULTY 
30 GOSUB 1500 
40 GOSUB 1000 
50 M=70:POKE H1,M 
60 N=120:POKE Cl,,200 
70 SC=OsWV=l 
SO X=20:Y=20:GOSUB 5000 
90 POKE 53278,1 

lOU IF PEEK (764) =23 AND M>45 THEM M=M 
POKE H1,M 

110 IF PEEK(764)=22 AND M<205 THEN M=M+^ 
:POKE H1,M 

120 IF PEEK(764)=6 AND N>25 THEN N=N-3 ;J 
=USR(12300) 

130 IF PEEK(764)=38 AND N<220 THEN N=N+3 
:Z=USR(12339) 

140 IF PEEK(53252)=0 THEN 200 
150 IF PEEK(53252)=2 THEN 400 
160 GOTO 800 
200 GOTO 100 
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400 REM END OF WAVE/TARGET FOUND 

410 FOR L=0 TO 250 STEP 3:SOUND 0, L, 10,1 

4 

420 NEXT L 

430 SOUND 0,0,0,0 

440 GOSUB 5000:: SC=SC+WV* 10:: WV=WV+1 

450 GOTO 100 

300 REM HIT A MINE 

810 REM SO DETONATE THEM 

820 FOR L.=0 TO 255 STEP 2 

830 SOUND 0,L,8,L/32 

835 SETCOLOR 2,L/16,L/16 

840 NEXT L 

850 SOUND 0,0,0,0 

860 GRAPHICS 1+16 

865 POKE H1,0 

870 POSITION 0, 6 s F'R I NT £6; "you hit a min 
e " 

880 POSITION 0,10s PRINT £6 5" YOU SCORED 
: " 5 S C 

890 POSITION 0,20:PRINT £6?" < RETURN 

s. II 

900 OPEN £1,4,0,"Ks" 

910 GET £1,D:IF D<>155 THEN 910 
920 CLOSE £1 
930 RUN 

1000 REM SET UP THE PLAYERS 

1010 POKE 559,62:POKE 53277,3 

1020 F'MBASE=40s POKE 54279, PMBASE 

1030 HI=53248 

1040 Cl=704 

1050 POKE HI,0 

1060 P1=PMBASE*256+1024 

1070 Z=USR(12288) 

1080 RESTORE 7000 

1090 FOR L=0 TO 7 

1100 READ D:POKE P1+L+120,D 

1110 NEXT L 

1199 RETURN 

1500 REM READ IN THE MACHINE CODE 
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1510 RESTORE 9000 
1520 FOR L=12288 TO 12377 
1530 READ D:POKE L, D 
1540 NEXT L 
1599 RETURN 

5000 REM ERASE TARGET/ DRAW TARGET 
5010 COLOR 4:G05UB 5500 

5020 X = IN T(RND( 1 )*70+5):Y=INT(RND ( 1 )* 40 + 
5) 

5030 COLOR 2 : GQSUB 5500 
5100 FOR L=1 TO DI 
5110 POKE 53278,1 

5120 P=INT(RND(1)*70+5):Q=INT(RND<1)*40+ 
5) 


5130 COLOR 3:GOSUB 5600 

5140 IF PEEK (53252 ) 00 THEN COLOR 4sG0SLJ 
B 5600:GOTO 5110 
5150 NEXT L 
5199 RETURN 

5500 PLOT X-1,Y-1:DRAWTQ X+1,Y~1 
5510 DRAWTO X+l,Y+l:DRAWTO X-1,Y+1 
5520 DRAWTO X-1„Y-1 
5530 RETURN 

5600 PLOT P-1,Q:DRAWTO P+1,Q 
5610 PLOT P,Q-1:DRAWTO P,0+1 
5620 RETURN 

7000 DATA 56,186,146,124,16,40,68,68 
9000 DAT A 162,0,169,0,157,0,44 
9010 DATA 232,208,250,104,96 
9100 DATA 173,2,44,72,173,1,44,72,173,O, 
44,72,162,0 ' 

911o DATA 139,3,44,157,0,44,232,2^4 ^53 
208,245 ' ' 


9120 DATA 104,141,253,44,104,141,254,44, 

104,141,255,44,104,96 . 

9200 DATA 173,255,44,72,173,254,44,72,17 
3,253,44,72,162,252 ' ' 

9210 DATA 189,0,44,157,3,44,202,224,255, 
208,245 5 * 


9220 DATA 104,141,0,44,104,141,1,44,104, 
141,2,44,104,96 



RIFLE GALLERY 



Sharp shooter time again as you try to prove that you 
have spent too many hours in entertainment arcades 
shooting ducks. 

We have not given you ducks or chickens to shoot at but 
a series of numbers from 1 to 9 inclusive. 


Howto play 

The numbers will scroll across the screen from left to 
right and, if they are missed by the marksman, scroll off 
the edge and come round again on the left. Any numbers 
which have been shot out will be missing on subsequent 
scrolls of the screen. 

Use keys Z and X to move left and right and SPACE to fire. 
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Each player has ten shots and a score will be displayed at 
the end of theten shots, or sooner if that is possible. 


Programming Hints 

If there are members of your circle who are having 
problems in shooting all the numbers in the gallery 
because of the speed of the spin try this delay. 

Enter LINE 1080 FORZ = 1 to40: NEXTZ 

This will slow down the scroll. 


The Program 


REM RIFLE 

20 DIM AS ( 41 > , B$ (41>,T$(1> 

30 GRAPHICS 0:POKE 752,1:PRINT 
40 A$(1,40)—"1 234567 

S 9 0 

50 Q=0 
60 Y—O 

70 SC=0:B=10:POSITION B,21:PRINT ""; 

SO SH=10 

100 GOSUB 1000 

200 IF PEEK(764)=23 AND B>0 THEN B=B-1:F' 
OS IT ION B,22:PRINT " 

210 IF PEEK(764)=22 AND B< 36 THEN POSIT I 
ON B,22:PRINT " ";:B=B+1 
300 GOSUB 1000 

310 IF PEEK(764)=33 AND Y=0 THEN Y=21:X= 

B+l:SH=SH—1 

400 IF Y=0 THEN 100 

410 POSITI ON X,Y:PRINT " "; 

420 Y=Y—1 : IF YOO THEN 430 
423 IF SH=0 THEN SOO 
426 GOTO 100 
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430 LOCATE X,Y,D 

440 IF D<>32 THEN 500 

450 POSITION X,Y:PRINT " ! "; 

460 GOTO 100 
500 T = X +1 

510 A*(T,T)=" ":SC^SC+D*5-240 

520 POSITION 12,23:PRINT " SCORE : ";SC; 

ii 11 . 

•I 

530 Y=0: POKE 764,1) 

540 GOTO 100 

800 REM RUN OUT OF SHOTS. 

810 GRAPHICS 1 + 16: F'OS ITI ON 0,4 
820 PRINT £6;"TEN SHOTS FIRED" 

830 POSITION 0,10:PRINT £6;" score :" 
; SC 

840 POSITION 0,17:PRINT £6;" < RETURN 

II 

850 OPEN £1,4,0,"K:" 

860 GET £ 1,D:IF D< >155 THEN 860 
870 RUN 

1000 REM ROTATE STRING AND PRINT 
1010 T $=A $ (40,40) 

1020 (2,40>=A$(1,39) 

1030 A$ (1, 1) =T$: A$ (2, 40) =E'$ (2, 40) 

1040 POSITION 0,10:PRINT A$; 

1050 Q=Q+1 

1060 IF 0—40 THEN Q=0:SETC0L0R 2, I NT(RND 

( 1 ) *r 1 6 ) , 0 

1099 RETURN 
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WORDGRAMS 



If you are tired of zapping, crunching and powing the 
aliens of the Universe perhaps you would like to try 
something a little more cerebral. 

Your 600 XL will choose a word at random, from a 
selection, and scramble the letters on the screen. You 
must determine the word and enter your answer. 


How to play 

Type in the word you think has been scrambled and press 
RETURN. 

You will be given a selection often words and will receive 
points based on your efforts. 
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Programing Hints 

You can alter the words by changing the data in lines 9000 
onwards but remember, if you change the number of 
words, you must change the items in Line 20. 


The Program 


10 REM W0RDGRAM3 

20 DIM 3$(20),W$(20),1$(20),T$(1) 
30 GRAPHICS 0 
40 3ETC0LQR 2,0,0 
30 SC=0 

100 FOR T=1 TO 10 
110 GOSIJB 1000 
120 GOSUB 2000 


130 

GRAPHICS 

0:SETCOLOR 


, o, 0 

140 

POSITION 

0,4:PRINT " 

WORDGRAM NUMBER 

"; t 





150 

POSITION 

0,12:PRINT 

II 

WHAT IS . . . . " 

160 

POSITION 

0, 14:PRINT 

M 

"; S$ 

170 

POSITION 

0,20:PRINT 

M 


180 

POSITION 

5,20 



190 

INPUT 1$ 




200 

IF LEN(I*)=0 THEN 17 

Q 


205 

POKE 752, 

1:PRINT 



210 

IF I$=W* 

THEN 300 



220 

POSITION 

0,16:PRINT 

it 

INCORRECT,.." 

W$ 





230 

POSITION 

25,17:PRINT 


"WAS THE WORD" 

240 

GOTO 400 




300 

POSITION 

0,16:PRINT 

it 

CORRECT. 


YOU SCORE 10 POINTS" 

310 SC—SC+lO 

400 FOR W=1 TO 700:NEXT W 
500 NEXT T 
600 GRAPHICS o 

610 POSITION 17,10:PRINT "RESULTS" 
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620 POSITION 0,14:PRINT 


SCORE 


630 POSITION 15,20: PRINT 11 < SPACE 
640 POKE 764,0 

650 IF PEEK (764) 033 THEN 650 
660 RUN 

1000 REM CHOOSE A WORD AT RANDOM 
1010 RESTORE 8999 
1020 READ N 

1030 FOR L=1 TO I NT(RND(1)*N+1) 
1040 READ W$ 

1050 NEXT L 
1099 RETURN 

2000 REM SCRAMBLE THE WORD INTO 3$ 
2010 S 3> — W‘i> 


2020 

2030 

2040 

2060 

2070 

2099 

8999 

Q Q (') (') 

9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 


FOR L=1 TO 30 

A=INT(RND(1)*LEN (S$> +1) 

B—INT(RND(1)*LEN( S$)+ 1) 

T$--S$ (A, A) :S$ C A,A > =S$ C B, B) 
3$(B,B>=T$ 

NEXT L 
RETURN 
DATA 20 

DATA ARTISTIC,INTELLECTUAL 
DATA FRANCHISE,IMPETUS 
DAT A TELEVISI ON,PR INTER 
DATA SKY,BRUSHED,PORTABLE 
DATA FORMAT I ON ,CLOCK 
DATA ENTERTAINMENT,VIDEO 
DATA COMPUTER,AUTOMATIC 
DATA SYMBOLIC,REGISTERED 
DATA SYNONYM,ABSTRACT, WRONG 


11 






HUNT THE DAY 
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Have you ever wondered if your old dad was 'Fair of 
Face', 'Full of Grace', 'Full of Woe', had 'Far to Go' or, 
hopefully, was 'Full of Loving and Giving'? 

Nowisyourchance to find out. 

If you ask any members of your family, or your friends, 
when they were born you will be able to tell them, using 
this program, the actual day of the week when the great 
event happened. 

By the way, this chart is only effective as far back as 1st 
January, 1753 which was when the calendar changed to 
it's present form. Of course, you already knew that didn't 
you? 

Oh, by the way, we have taken account of leap years just 
in case you thought you could catch us out. 
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Howto play 

You will be asked for details of the date you have in mind. 

When you have typed in the data press RETURN after 
each item. 

When you have completed the requested material your 
600 XL will do the rest for you. 


The Program 


10 REM HUNT THE DAY 
20 DIM MT> (20) „ T$ (20) 

100 GRAPHICS 0 

1 10 P 0 SIT I 0 M 0 , 3 : P R IN T ' ’ P L E A S E GI V E TIIF 
DATE YOU REQUIRE" 

120 GOSIJB .1.000 
130 GOSUB 2000 
140 POSITION 0,1 

150 PRINT " THAT WAS/IS/WILL BE A ";T 
$ 

160 POKE 752,1:PRINT 

170 POSITION 0,3:PR INT " PLEASE PRE 

SS <SPACE/ WHEN READY" 

200 OPEN £1,4,0,"K:" 

210 GET £ 1, D: IF DC >32 THEM 210 
220 CLOSE £1 
230 RUM 

1000 REM GET A DATE 
1010 POSITI ON 0,10:PRINT "YEAR 

POSITION 9,10 

1020 INPUT Y: IF YC1753 OR YOINT(Y) THEM 
1010 

1100 POSITION O,15:PRINT "MONTH... 

POSITION 9,15 

1110 INPUT M$: IF MT> (1,1) >•-•" 1 " AND M$(l,l 
>< = "9" THEN M-VAL. (MT ) : GOTO 1200 
1120 RESTORE 9000 
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1 130 

FOR L 

■~:i TO 

12 


1 140 

READ 

T* 



1 150 

IF Tt> 

= ( 1, 

3) 

THEM 

1160 

NEXT 

L 



1200 

IF M< 

1 OR M 

>12 OR M 

10 





1300 

POSITION 0, 

20: 

: PR I NT 

1310 

INPUT 

D 



1 320 

IF D< 

1 OR D 

■> y, -| 

1. OR D 

00 






=L 

> I NT (M) THEM 11 

"DAY. 

:POSIT ION 9,20 

>INT(D) THEN 13 


1999 RETURN 

2000 REM FIND OUT DAY OF WEEK 

2010 A=Y +1+31 *(M -1)-U NT( <Y-1)/4).I NT(3*J 

NT ( (Y-i-99) /100) /4) 

2020 IF M<=2 THEN 2040 

2030 A-Y + 1 +31 * (M~ 1) -1 NT ( (4* M+23) / 10) •+• I NT, 

(Y/4).INT(3* (I NT(Y/100)+1)/4) 

2040 A-A--1 NT (A/7 > *7 
2050 IF A=0 THEN A--7 
2 0 60 A “A -1 :: IF M=2 T H E N 210 0 
2070 N=31 

2000 IF M=4 OR M=6 OR M-9 OR M=11 THEN N 
— 30 


2090 GOTO 2120 
2100 N --28 

2110 IF Y - • IN T < Y / 4) *4=0 THEN N=29 
2120 IF D>N THEN T"NON-DAY" : RETURN 
2130 A=A+DsD-A-INT(A/7)*7:IF D=0 THFN D 
7 

2135 RESTORE 9500 
2140 FOR L=1 TO D 
2150 READ 7 % 

2160 NEXT L 

2999 RETURN 

9000 DATA JAN,FEB,MAR 

9010 DATA APR,MAY,JUN 

9020 DATA JUL,AUG,SEP 

9030 DATA OCT,MOV,DEC 

9500 DATA SUNDAY,MONDAY,TUESDAY 

9510 DATA WEDNESDAY,THURSDAY,FRIDAY 

9520 DATA SATURDAY 
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SURROUND 



Ever wondered how to surround someone on your own? 
When they are trying to surround you, at the same time. 
Now is your chance to find out. 

Try not to fall over your own tracks or you are out of the 
game. 


How to play 

For this little gem we have put all the playing instructions 
on the screen at the commencement of play 


The program 

1.0 REM SURROUND 

15 DIM M$(12) ,N1 $(12) ,N2$(12) 
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2 0 G 0 S U B 1000: G 0 S U B 2000 

30 GRAPHICS 5-1-16 

40 E--22: F-34 

50 A=20=060 

60 B=24:D=24 

100 REM PLAYER ONE 

110 K-F'EEK (764) : IF K=47 OR K=23 OR K=22 

OR K=63 THEN E=K 

120 IF E=23 THEN A=A+79 

130 IF E=22 THEN A=A+81 

140 IF E“47 THEN B=B+47 

150 IF E~63 THEN B=B+49 

160 A=A~80*INT(A/80):B=B-48#INT<B/48) 

200 K>PEEK(764):IF K=14 OR K=34 OR 1038 

OR l<=6 THEN F=K 

210 IF F=34 THEN C=C+79 

220 IF F=38 THEN C=C+81 

230 IF F=14 THEM D=D+47 

240 IF F=6 THEN D=D+49 

250 0=0-80# I NT (0/80) : D=D--4S# I NT (D/48) 

300 LOCATE A,B,G:IF GOO THEN 800 
310 LOCATE C,D,H:IF H<>0 THEN 900 
400 COLOR 1:PLOT A,B 
410 COLOR 2:: PLOT C„D 
500 GOTO 100 

800 REM PLAYER ONE CRASHED 
810 M$=N1$:GOTO 920 
900 REM PLAYER TWO CRASHED 
910 M$=N2$ 

920 GRAPHICS 1+16 

930 POSITION 0,10:PRINT £6;M$5" CRASHED" 
980 OPEN £1,4,0,"Ks" 

990 GET £1,D:IF D<>32 THEN 990 
995 CLOSE £1:RUN 
1000 REM INSTRUCTIONS 
1010 GRAPHICS 1+16:POSITION 0,3 
1020 PRINT £6j"instructions (y/n)" 

1030 OPEN £1,4,0,"K: M 

1040 GET £1,D:IF D< >ASC("Y") AND D< >ASC( 
"N") THEN 1040 
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1050 IF D--ASC ( "N" ) THEN 1999 
1 10 O P 0 b I f 10 N (.), 3:1PINT £ 6 5 " — = = ins t r u c t 
ions ====" 

1110 POSITION 0,5 sPRINT £6! "PLAYER PL 

AYER" 

1120 POSITION 0 „6 : PRINT £ 63 " ONE 
TWO" 

1130 POSITION 0,8:PRINT £ 63 " Z LEFT 

il 

1140 POSITION 0,9:PRINT £ 63 " X RIGHT 
/" 

1150 POSITION 0,10:PRINT £ 63 " Q UP 

_ II 

1160 POSITION 0,11:PRINT £ 63 " A DOWN 
+ " 

1170 POSITION 0,19:PRINT £ 63 "TRY TO STAY 
ALIVE" 

118o POSITION 0,21:PRIN1 £ 6 ;"avoid each 
other" 

1190 POSITION 0,23: PRINT £ 6 . 5 " < space 

N II f 

1200 GET £1,D:IF D<>32 THEN 1200 
1300 CLOSE £1 

1999 CLOSE £1:RETURN 

2000 REM GET NAMES 
2010 GRAPHICS 1 

2020 POSITION 0,10:PRINT £65"PLAYER ONF’ 
S NAME" 

2025 PRINT 

2030 POSITION 18,10:PRINT £ 63 " 

":POSITION 18,10:INPUT Nl*:IF 
Nl$="" THEN 2020 

2100 POSITION 0,10:PRINT £ 63 "PLAYER TWO’ 
S NAME" 

2110 POSITION 18,10:PRINT £6 3 " 

":POSITION 18,10:1NPUT N2$:IF 
N2T="" THEN 2100 
2200 IF N1$<>N2$ THEM 2999 
2210 POSITION 0,5:PRINT £6 3 " 
using" 


how coni 
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2220 FOR L=1 TO 500s NEXT L. 
2230 GOTO 2010 
2999 RETURN 
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HARK THE HERALD 
ANGELS SING 



We were feeling festive when we came to this program 
so we decided to throw in a Christmas carol instead of the 
latest David Bowie hit. 

To make it more fun we have written this program so that 
the words of the carol appear on the screen, line by line. 
Call it 'Sing-a-long-a-600 XL' if you like. 


Howto play 

When you have typed in the program just sit back and 
enjoy the music. 
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Programming hints 

If you don't like our selection of carol then you can 
change the tune by altering the data in Lines 9000 
onwards. The words are in lines 5000 — 5100. Note that 
the last word must be a full stop (.) 

Line 8000 has the number of notes in the tune. 


The program 


10 REM HARK THE HERALD ANGELS SING 
20 DIM T(6):RESTORE 8000 
30 READ T 

40 FOR L=1 TO 6sT(L)=L*T:NEXT L 
5 0 DI M W4(4 00 ) ,T$(40) 

60 G OS LIB 3000 

70 GRAPHICS 0:POSITION 0,8 
80 POKE 752,1:PRINT 
100 RESTORE 9000 
110 GOSIJB 1000 
120 END 

1000 REM PLAY A TUNE 
1005 C=0 
1010 READ P,D 

1012 IF PO--1 THEN 1020 

1014 PRINT SPRINT W* (C*40+l,0*40+40) 
1016 C=C+1 

1013 GOTO 1010 

1020 IF P"0 THEN 1099 

1030 SOUND 0,P,10,14 

1040 FOR W=1 TO T(D) s NEXT W 

1050 SOUND 0,0,0,0 

1060 GOTO 1010 

1099 RETURN 

3000 REM READ IN WORDS 
3002 C=0 

3005 RESTORE 5000 
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3010 T$“" 


3015 READ T$:T*<40)=" " 

3020 IF T$( 1 , 1 )=" . " THEN 3099 
3030 W$ (0*40+1,c*40+40) =T$ (1,40) 

3040 C=C+1 
3050 GOTO 3010 
3099 RETURN 

5000 DATA HARK THE HERALD-ANGELS SING 
5010 DATA GLORY TO THE NEW-BORN KING 
5020 DATA PEACE ON EARTH AND MERCY MILD 
5030 DATA GOD AND SINNERS RECONCILED 
5040 DATA JOYFUL ALL YE NATIONS RISE 
5050 DATA JOIN THE TRIUMPH OF THE SKIES 
5060 DATA WITH THE ANGELIC HOST PROCLAIM 
5070 DATA CHRIST IS BORN IN BETHLEHEM 
5080 DATA HARK! THE HERALD-ANGELS SING 
5090 DATA GLORY TO THE NEW BORN KING 
5100 DATA . 

8000 DATA 80 


9000 DATA -1,0,108,2,81,2,81,3,85,1,81,2 

,64,2,64,2,72,2 . ' 

9010 DATA -1,0,53,2,53,2,53,3,61,1,64,2, 

72.2.64.4 . 

9020 DATA “1,0,108,2,81,2,81,3,85,1,81,2 
,64,2,64,2,72,2 

9030 DATA “1,0,53,2,72,2,72,3,85,1,85,2, 

96.2.108.4 

9040 DATA “1,0,53,2,53,2,53,2,81,2,61,2, 

64,2,64,2,72,2 . 

9050 DATA “1,0,53,2,53,2,53,2,81,2,61,2, 

64,2,64,2,72,2 . 

9060 DATA “1,0,47,2,47,2,47,2,53,2,61,2, 

64.2.61.4 . 

9070 DATA “1,0,72,2,64,1,61,1,53,3,81,1, 

81.2.72.2.64.4 . 

9080 DATA “1,0,47,3,47,1,47,2,53,2,61,2, 

64.2.61.4 . ’ 

9090 DATA “1,0,72,2,64,1,61,1,53,3,81,1, 

81,2,72,2,81,6 . 

9099 DATA 0,0 
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